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ABSTRACT 

Five  structural  contour  maps  of  the  interior  plains  of 
southern  Alberta  were  compiled  from  exploratory  well  elevations. 
The  maps  expressed  a  combination  of  structures  with  a  wide 
variation  in  relief  and  spacing.  As  only  the  intermediate 
scale  structures  were  to  be  analysed,  spatial  filtering  was 
used  to  suppress  conflicting  structures  that  were  outside  of 
the  desired  size  range. 

Harmonic  analysis  allows  each  structure  to  be  expressed 
in  terms  of  a  limited  band  of  sinusoidal  surfaces  of  specific 
amplitude,  wavelength  and  phase.  Spatial  filtering  suppresses 
undesired  structures  by  deleting  their  wavelengths  and  retain¬ 
ing  the  wavelengths  of  the  desired  structures.  The  process 
requires  a  high  speed  digital  computer  and  involves  determin¬ 
ing  the  wavelengths  present,  designing  a  spatial  filter  to 
remove  the  undesired  wavelengths  and  filtering  the  map. 

The  maps  and  their  amplitude  spectra  were  analyzed  to 
determine  the  maximum  range  of  desirable  wavelengths  and 
several  filters  were  designed  to  enhance  different  portions 
of  this  range.  The  filters  were  designed  in  the  frequency  domain, 
and  their  spatial  equivalents  determined  by  means  of  two- 
dimensional  Fourier  transforms.  The  maps  were  digitized  on 
a  two  mile  interval  and  the  spatial  filters  convolved  with  a  test 
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area  to  determine  the  best  filter  for  southern  Alberta. 

Finally  the  optimum  filter  was  used  to  produce  a  new  suite 
of  filtered  structural  contour  and  apostreptic  maps  display¬ 
ing  the  desired  structures. 

A  structural  analysis  indicates  the  presence  of  two 
dominant  intermediate  scale  structural  trends  that  are  aligned 
either  NE-SW  or  NW-SE  similar  to  those  of  the  Precambrian 
Churchill  province  of  the  Canadian  shield.  The  trends  are 
present  in  all  maps  but  with  diminished  relief  on  the  upper 
surfaces.  The  structures  appear  to  be  essentially  tabular 
bodies  caused  by  minor  vertical  adjustments  along  planes  of 
weakness  originating  in  the  Precambrian  basement. 

The  analysis  also  suggests  the  presence  of  a  NW-SE 
trending  wrench  fault  in  the  Edmonton  area  that  was  active 
just  prior  to  the  time  of  Cretaceous  deposition.  Finally* 
southern  Alberta  can  be  roughly  divided  into  three  large 
structural  domains  approximately  equivalent  to  known  basement 
divisions.  The  structural  trends  highlighted  by  the  filtering 
process  are  coincident  with  many  of  the  known  oil  and  gas 
fields  and  tectonic  movements  may  have  exerted  a  pronounced 


influence  on  hydrocarbon  entrapment. 
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CHAPTER  1  -  INTRODUCTION 

The  Interior  Plains  of  southern  Alberta  are  generally 
of  low  relief  and  covered  by  till,  so  that  outcrops  of  bedrock 
are  scarce  and  are  confined  to  river  valleys  and  the  slopes  of 
outliers  such  as  the  Cypress  Hills.  The  low  relief  and  the 
flat  or  gently  inclined  nature  of  the  immediately  underlying 
sediments  permit  little  of  the  three  dimensional  structure  in 
the  sedimentary  column  underlying  the  Interior  Plains  to  be 
determined  from  a  study  of  the  outcrops. 

The  structure  of  a  rock  body  is  described  by  the  nature 
and  orientation  of  the  contained,  identifiable  surfaces  and 
lines.  These  surfaces  and  lines,  irrespective  of  their  origin, 
are  called  structures.  A  structural  analysis,  whether  of  a 
single  fold  or  of  a  large  area,  is  limited  by  the  available 
information.  Direct  measurements  on  well  exposed  features 
are  best,  but  in  areas  such  as  the  Interior  Plains  where  expos¬ 
ures  are  scarce,. a  great  deal  of  information  can  be  obtained 
from  bore  holes  or  indirect  geophysical  measurements.  In  the 
case  of  bore  holes  or  wells  where  the  spacing  cannot  be  readily, 
controlled,  the  scale  of  structures  that  may  be  included  in 
the  analysis  is  directly  related  to  the  number  and  spacing  of 
the  available  sample  locations.  It  can  be  shown  that  a 
structural  analysis  of  intermediate  scale  structures,  those  with 
a  minimum  dimension  between  ten  and  fifty  miles,  either  requires 
good  outcrop  exposure  or  bore  holes  with  an  average  spacing  of 
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not  more  than  five  miles. 

The  outcrops  of  Upper  Cretaceous  and  Lower  Tertiary 
rocks  in  the  Interior  Plains  have  enabled  depositional  environ¬ 
ments  to  be  established.  However,  the  near  surface  beds  are 
almost  flat  lying  with  only  occasional  local  exposures  of 
glacial  and  tectonic  structures  so  that  surface  geology  permits 
only  a  surficial  picture  of  the  tectonic  history  of  the  Interior 
Plains  of  southern  Alberta.  Analysis  in  depth  must  rely  to  a 
large  extent  on  subsurface  sources  of  information. 

Fortunately,  the  sedimentary  rocks  of  the  Interior 
Plains  are  a  prolific  source  of  hydrocarbons.  Between  the 
first  commercial  discovery  in  1883  and  the  summer  of  1966,  some 
15*000  wells  were  drilled  within  the  thesis  area  of  which 
approximately  7*500  were  exploratory  ventures  for  the  purpose 
of  locating  new  oil  and  gas  fields.  Exploratory  wells  are 
ideal  for  a  structural  study,  for  not  only  have  they  been 
thoroughly  examined  by  the  drilling  companies,  but  also,  due 
to  the  vagaries  of  exploration  methods,  their  locations  approx¬ 
imate  a  statistically  random  distribution. 

Exploratory  wells  are  extensively  sampled,  prospective 
horizons  are  cored,  and  the  entire  well  is  usually  surveyed 
with  a  variety  of  wire-line  logs  so  that  7*500  wells  represent 
a  very  large  amount  of  geological  information.  Consequently, 


most  regional  studies  (  see  e.g.  McCrossan  and  Glaister,  1964) 
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have  used  only  representative  samples  of  the  available  wells 
and  thus  have  been  restricted  to  the  analysis  of  the  large-scale 
structures  and  to  descriptions  of  the  regional  stratigraphy. 

Local  small-scale  structures  deduced  from  surface  geology  and 
development  wells  have  also  been  described  (see  e.g.  Russell  and 
Landes,  19^-0),  but  It  Is  only  quite  recently  that  the  exploratory 
wells  have  reached  a  sufficient  number  and  concentration  to  permit 
analysis  of  the  Intermediate-scale  structures.  Since  their  del¬ 
ineation  requires  the  examination  of  very  large  numbers  of  sample 
values,  the  necessary  analytical  procedures  are  most  effective 
when  carried  out  on  high  speed  digital  computers. 

Digital  computers  are  well  suited  to  handling  large 
amounts  of  geological  data  as  long  as  it  is  in  suitable  form. 

They  can  relieve  the  geologist  of  most  of  the  tedious  and  error 
generating  mathematical  operations.  Since  computer  methods  are 
largely  mechanical  and  must  conform  to  mathematical  logic,  their 
use  opens  the  door  to  procedures  that  are  not  normally  associated 
with  structural  analysis.  If  the  geological  information  describ¬ 
ing  a  structural  surface  can  be  digitized  on  a  uniform  interval, 
then  filter  theory  can  be  used  to  design  operations  that  will 
facilitate  the  analysis.  It  can,  in  fact,  be  separated  into 
two  parts,  an  analytical  part  that  is  mathematically  rigorous, 
and  a  descriptive  part  that  is  based  on  previous  geological 


experience  and  intuition. 
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This  thesis  documents  an  attempt  to  design  and  apply 
computer-oriented  techniques  to  an  analysis  of  the  intermediate 
scale  structures  of  the  Interior  Plains  of  southern  Alberta. 

The  structures  are  examined  with  respect  to  the  overall  tectonic 
patterns  and  within  the  limits  of  the  available  information, 
their  origin  and  possible  economic  significance  are  suggested. 

Project  Area 

The  area  of  study  (Figure  l)  consists  of  the  Interior 
Plains  of  southern  Alberta  south  of  the  55th  parallel.  It 
has  an  areal  extent  of  some  100,000  square  miles,  contains 
approximately  160,000  cubic  miles  of  sedimentary  rock  and  is 
entirely  within  the  Western  Canadian  Sedimentary  Basin. 

Previous  Work 

The  first  geological  survey  within  the  thesis  area 
was  undertaken  by  Sir  James  Hector,  physician  and  geologist 
with  the  Palliser  expedition  of  1857  to  i860.  The  next  was 
by  G#M.  Dawson  who  examined  the  geology  in  the  vicinity  of 
the  49th  parallel__in  1874  and,  accompanied  by  R.G,  McConnell 
spent  the  summer  of  l88l  mapping  as  far  north  as  the  Red  Deer 
river.  Together  and  separately,  Dawson  and  McConnell  ( 1 885 ) 


covered  most  of  what  is  now  southern  Alberta. 
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Figure  1 .  index  map  of  thesis  area 
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Exploitation  of  Alberta’s  coal  and  natural  gas  began 
late  in  the  nineteenth  century  and  oil  was  discovered  early  in 
the  twentieth  stimulating  a  continued  interest  in  the  detailed 
geology  of  the  interior  plains.  The  mine  workings  and  well- 
borings  gave  geologists  access  to  previously  covered  strata. 
Dowling  (1917)  revised  some  of  the  earlier  stratigraphic 
nomenclature  and  (1919)  published  structural  contour  maps  on 
Cretaceous  horizons  that  displayed  most  of  the  large-scale 
structures.  Williams  and  Dyer  (1930)  described  the  regional, 
and  many  of  the  small-scale  structures  of  southern  Alberta. 

Hume  (1933)  showed  that  structure  was  significant  in  the  form¬ 
ation  of  many  of  the  oil  pools  of  central  and  southern  Alberta. 
Russell  (1932)  described  the  Monarch  fault  near  Lethbridge  and 
with  Landes  (1940)  reviewed  most  of  the  remaining  areas  where 
there  is  evidence  of  at  least  local  tectonic  movements. 

More  recently,  Webb  (1954)  outlined  the  regional 
structural  history  of  the  western  Canadian  plains  and  Borden 
(1956)  did  the  same  for  the  major  tectonic  trends  in  the  south¬ 
ern  part  of  the  basin.  The  Alberta  Society  of  Petroleum  Geolo¬ 
gists  sponsored  a  symposium  (deMille,  Lavoie  and  Williams,  1958) 
that  dealt  with  tectonic  trends  affecting  the  north-west  portion 
of  the  area  and  (McCrossan  and  Glaister,  1964)  edited  a  remark¬ 
ably  complete  geological  history  of  western  Canada  that  gives 
a  detailed  description  of  the  large-scale  structural  and  strat¬ 


igraphic  variations. 


7 


Sikabonyi  (1957*  1959)  proposed  tectonic  patterns  that 
extend  across  the  northern  part  of  the  area  and  Haites  (i960) 
suggested  there  may  be  a  network  of  transcurrent  faults 
extending  throughout  Western  Canada,,  Burwash  (1965)  outlined 
the  general  structural  trends  present  in  the  Precambrian  base¬ 
ment  . 


Stratigraphic  Nomenclature 

Stratigraphic  nomenclature  follows  the  recommendations 
of  the  Alberta  Society  of  Petroleum  Geologists  (A.S.P.G.,  I960; 
McCrossan  and  Glaister,  1964)  and  that  of  the  Oil  and  Gas 
Conservation  Board  of  Alberta  (1966).  A  table  of  formations 
is  given  in  Figure  2, 


Structural  Surfaces 

A  descriptive  knowledge  of  the  attitudes  of  surfaces 
that  would  undergo  deformation  by  any  tectonic  movement  is 
essential  to  a  structural  analysis„  Structural  surfaces  for 
southern  Alberta  were  obtained  by  using  all  available  explorat¬ 
ory  well  information  to  construct  structural  contour  maps  on 
specific  stratigraphic  surfaces  that  continuously  underlie  the 


“TABLE  OF  FORMAT  TONS 


Figure  2 

Table  of  formations  for  the  Interior  Plains  of  Southern  Alberta, 
after  the  Oil  and  Gas  Conservation  Board,  1966. 
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entire  area  and  can  be  correlated  by  standard  subsurface  methods. 
The  most  suitable  surfaces  for  structural  mapping  are  those  that 
closely  approximate  time  stratigraphic  surfaces  and  are  spaced 
throughout  the  vertical  section  so  that  they  adequately  sample 
all  possible  periods  of  tectonic  disturbance. 

Structural  surfaces  used  in  the  analysis  are  usually 
a  compromise  between  the  ideal  and  the  practical.  Elevations 
of  subsurface  horizons  are  normally  determined  from  wire-line 
logs.  Early  wells  were  surveyed  only  with  the  basic  spontaneous 
potential  and  resistivity  logs.  Thus,  for  universal  coverage, 
the  surface  must  be  an  easily  discernable  electric  log  marker. 
Since  there  is  a  very  large  number  of  wells,  structural  surfaces 
must  correspond  to  very  distinctive  lithological  breaks  that  can 
be  readily  identified  and  correlated  by  any  of  the  many  geolo¬ 
gists  who  do  the  actual  log  interpretation. 

The  cost  of  drilling  a  well  increases  rapidly  with  depth 
and  there  is  attenuation  of  well  control  towards  the  deeper 
horizons.  The  balance  between  the  cost  of  drilling  and  the 
prospects  for  oil  and  gas  discoveries  means  that  there  will  be 
one  horizon  marking  the  lower  boundary  of  sufficient  information 
for  a  structural  analysis.  There  is,  therefore,  a  definite  depth 


limit  to  effective  analysis. 
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Exploratory  well  Information  was  obtained  for  four 
horizons  that  seemed  to  meet  the  requirements  of  continuity, 
adequate  control,  stratigraphic  separation  and  a  reasonable 
approximation  to  a  time  stratigraphic  surface.  Elevations 
were  plotted  at  the  well  locations  and  structural  contour  maps 
prepared  for  use  in  the  analysis.  A  fifth  map  on  a  deeper 
horizon  was  also  prepared.  However,  as  only  a  relatively  few 
wells  had  penetrated  to  this  depth  the  last  map  served  mainly  to 
show  the  continuity  of  the  larger  structures  and  the  loss  in 
detail  inherent  in  poorly  sampled  data. 

First  White  Speckled  Shale 

The  uppermost  structural  contour  map,  top  First  White 
Specks  (Figure  3)>  was  prepared  on  the  top  of  the  First  White 
Speckled  Shale  which  is  the  stratigraphically  highest  of  the 
depositional  surfaces  considered  suitable  for  a  structural 
analysis  of  southern  Alberta.  This  unit  marks  the  top  of  the 
Upper  Cretaceous  Colorado  Group  and  has  long  been  used  by  the 
oil  industry  as  a  widespread  marker  horizon  (A.S.P.G,  i960). 

It  continuously  underlies  all  but  the  extreme  northwest  corner 
of  the  area.  The  main  unit  generally  ranges  in  thickness  from 
160  to  190  feet  and  consists  of  a  grey  marine  bentonic  shale 
containing  lenticular  particles  of  chalk  up  to  half  a  milli¬ 
meter  in  diameter.  Immediately  north  of  the  Cypress  Hills,  it 
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Figure  3 
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splits  into  two  parts  separated  by  145  feet  of  unspeckled  shale 
and  in  other  local  areas  the  speckled  shales  grade  Into  over- 
lying  sandstones  of  the  Milk  River  Formation,  However,  the 
First  White  Speckled  Shale  normally  has  a  sharp  conact  with 
unspeckled  shales  and  sandstones. 

The  top  of  the  First  White  Speckles  Is  a  suitable  map¬ 
ping  surface  because  It  Is  a  widespread  depositional  marker 
horizon  that  Is  normally  picked  In  all  exploratory  wells.  The 
white  specks  are  easily  Identifiable  in  cutting  samples  and  the 
unit  is  a  good  electric  log  marker  (Figure  2).  The  standard 
deviation  of  the  picks  under  conditions  similar  to  those  des¬ 
cribed  by  Hitchon  (1964)  is  estimated  to  be  not  more  than  five 
feet.  The  upward  change  from  speckled  to  unspeckled  rock  rep¬ 
resents  an  environmental  change  that  occurred  over  much  of  West¬ 
ern  Canada  so  the  surface  probably  corresponds  closely  to  a  time 
stratigraphic  horizon. 

Elevations  from  7*422  exploratory  wells  were  used  in  the 
construction  of  the  structural  contour  map.  This  is  the  equiv¬ 
alent  of  one  sample  for  each  13.5  square  miles  and  approximates 
a  uniform  sampling  interval  of  root  13*5  or  3»7  miles. 

Fish  Scale  Sandstone 

The  second  structural  contour  map,  the  base  Fish  Scales 
(Figure  4),  was  prepared  on  the  base  of  the  Fish  Scale  Sandstone 
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Figure  4 
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This  unit  is  a  widespread  marker  horizon  within  the  Colorado 
Group  and  is  taken  to  mark  the  base  of  the  Upper  Cretaceous 
(A.S.P.G.  I960) 0  The  Fish  Scale  Sandstone  is  continuous  across 
most  of  the  southern  half  of  the  Western  Canadian  Basin  includ¬ 
ing  the  entire  map  area.  It  is  a  poorly  sorted,  light  colored 
sandstone  containing  the  remains  of  what  are  assumed  to  be 
fossil  fish  scales.  The  surface  is  taken  at  the  base  of  the 
unit  where  the  sandstone  is  better  developed  and  there  are  an 
abundance  of  recognizable  fish  scales.  The  sandstone  averages 
less  than  30  feet  in  thickness  and  forms  an  abrupt  change  from 
the  underlying  dark  grey  marine  Colorado  shales. 

The  base  of  the  Fish  Scales  meets  the  requirements  of 
a  time  stratigraphic  marker  for  It  represents  a  change  from 
normal  marine  conditions  to  ones  associated  with  widespread  de¬ 
position  and  preservation  of  fish  scales.  It  is  a  distinctive 
and  easily  correlatable  marker  since  it  causes  a  strong  kick  on 
both  electric  and  radioactivity  logs.  Hitchon  (1964)  computed 
the  standard  deviation  of  electric  log  picks  on  the  base  Fish 
Scales  to  be  0.5  feet. 

The  elevation  of  the  base  Fish  Scales  has  been  determin¬ 
ed  for  6,933  wells.  This  is  an  average  of  one  sample  for  each 
14.4  square  miles  and  approximates  a  uniform  sampling  interval 


of  3.9  miles. 
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Sub-Cretaceous  Unconformity 

The  basal  Cretaceous  rocks  in  western  Canada  unconform- 
ably  overlie  strata  ranging  in  age  from  Jurassic  in  the  southwest 
to  Devonian  in  the  northeast.  The  angular  discordance  is  small 
but  the  depositional  and  erosional  vacuity  represents  a  major 
hiatus.  In  southern  Alberta  the  Lower  Cretaceous  basal  Mann- 
ville  sands  and  conglomerates  overlie  shales  and  limestones  of 
the  pre-Cretaceous  section  and  form  a  distinctive  marker  horizon 
that  can  be  easily  correlated  over  the  entire  area.  The  surface 
reflects  erosional  features  and  the  time  of  non-deposition 
persisted  longer  in  the  eastern  part  of  the  area  than  it  did  in 
the  west  (McCrossan  and  Glaister,  1964).  However,  the  unconform¬ 
ity  is  a  significant  marker  and  was  mapped  for  use  in  the  struct¬ 
ural  analysis  (Figure  5). 

The  oil  potential  of  the  basal  Cretaceous  sands  and  the 
immediately  underlying  Jurassic,  Mississippian  or  Devonian  rocks 
has  resulted  in  a  large  number  of  exploratory  wells  that  inter¬ 
sect  the  sub-Cretaceous  unconformity.  Although  it  is  not  the 
most  desirable  structural  surface,  it  is  the  deepest  horizon 
where  there  is  a  relatively  large  amount  of  well  control  with 
a  random  distribution  over  the  whole  of  southern  Alberta.  It 
is  a  good  electric  log  marker  (Figure  2).  Hitchon  (1964) 
computed  the  standard  deviation  of  the  log  picks  as  1.03  feet. 

Elevations  from  5# 879  exploratory  wells  have  been 
included  in  the  structural  contour  map.  This  is  one  well  for 
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each  17.3  square  miles  and  is  approximately  equal  to  a  uniform 
sampling  interval  of  4.1  miles. 


The  Top  of  the  Devonian 

Throughout  most  of  the  southwestern  part  of  Alberta 
the  carbonates  of  the  Upper  Devonian  are  overlain  by  the  shales 
of  the  basal  Mississippian/Upper  Devonian  Exshaw  Formation. 

The  Exshaw  is  a  black  radioactive  shale  that  varies  in  thick¬ 
ness  from  35  feet  in  the  southwestern  part  of  the  area  to  a 
thin  feather  edge  where  it  subcrops  against  the  sub-Cretace.ous 
unconformity.  Beyond  the  subcrop  of  the  Mississippian,  the 
Upper  Devonian  horizons  are  overlain  by  the  sands  and  conglom¬ 
erates  of  the  basal  Cretaceous.  In  either  case,  the  top  of  the 
Devonian  is  a  distinctive  marker  horizon  that  can  be  accurately 
correlated  throughout  southern  Alberta. 

The  change  from  a  very  minor  disconf ormity  with  the 
Exshaw  to  a  major  unconformity  with  the  Cretaceous  detracts 
from  the  overall  usefulness  of  the  Devonian  carbonate  top  as 
a  structural  surface.  There  is  also  a  strong  regional  gradient 
to  the  west  that  causes  a  decrease  in  well  control  correspond¬ 
ing  to  the  rapidly  increasing  drilling  depths  required  to  reach 
the  Devonian.  The  change  from  a  depositional  to  an  erosional 
surface  also  permits  an  evaluation  of  the  inter-relationship 


between  erosional  and  structural  features.  It  is  an  excellent 


. 
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Figure  6 
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electric  log  marker  (Figure  2)  and  it  is  estimated  that  under 
conditions  similar  to  those  described  by  Hitchon  (1964),  the 
standard  deviation  of  elevation  picks  should  be  less  than  5  feet. 
The  structural  contour  map,  the  top  Devonian  (Figure  6),  is  the 
deepest  surface  used  in  the  filtering  approach  to  the  structural 
analysis. 

Elevations  from  3*875  exploratory  wells  were  used  in 
the  construction  of  the  map.  This  is  an  average  of  one  sample 
for  each  26  square  miles  and  corresponds  to  an  average  uniform 
sampling  interval  of  5.1  miles.  However,  the  well  distribution 
is  not  statistically  random  since  there  is  a  drop  off  in  the 
number  of  locations  to  the  west.  The  sampling  interval  is  there¬ 
fore  larger  than  the  average  in  a  strip  bordering  the  western 
boundary  of  the  map  and  this  must  be  considered  in  the  structural 
analysis. 


Top  of  the  Elk  Point  Group 
The  deepest  dependable  marker  that  underlies  nearly 
all  of  southern  Alberta  is  the  top  of  the  Middle  Devonian  Elk 
Point  Group  (A.S.P.G.  i960).  The  group  is  conformably  overlain 
by  the  Beaverhill  Lake  Formation  of  late  Devonian  age  with  the 
zone  of  demarcation  usually  indicated  by  the  presence  of 
dolomitic  red  and  green  shales.  The  Elk  Point  Group  unconform- 
ably  overlies  rocks  ranging  in  age  from  Silurian  to  Precambrian 
and  is  missing  entirely  from  the  southernmost  parts  of  the  area. 


. 


20 


Figure  7 
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In  southern  Alberta  the  horizons  that  are  considered 
the  most  prospective  for  oil  and  gas  lie  above  the  Elk  Point 
so  that  only  a  limited  number  of  exploratory  wells  have  reached 
this  interval.  The  structural  contour  map,  the  top  Elk  Point 
(Figure  7)>  does  not  have  sufficient  control  for  a  structural 
analysis  of  the  intermediate  scale  features.  There  are  only 
599  exploratory  wells  available  for  use  in  the  map  which  means 
there  is  only  an  average  of  one  well  for  each  170  square  miles 
for  an  equivalent  uniform  sampling  interval  of  13  miles.  A 
sampling  interval  this  large  will  reveal  only  the  large  scale 
and  a  few  of  the  very  largest  intermediate  scale  features.  The 
contours  are  therefore  very  smooth  and  the  map  does  not  show 
the  intermediate  and  small  scale  structures. 

The  surface  is  a  good  electric  log  marker  with  a  prob¬ 
able  standard  deviation  for  the  elevation  picks  of  not  more 
than  5  feet.  However,  the  sampling  interval  permits  variations 
in  accuracy  between  wells  and  the  overall  accuracy  is  poor  when 
compared  to  the  other  maps  in  the  suite.  The  top  Elk  Point 
map  was  included  to  illustrate  the  continuity  of  the  large 
structures  and  to  show  the  absolute  necessity  of  adequate  cont¬ 
rol  for  a  structural  analysis  of  a  particular  scale  of  feature. 
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Mapping  Procedure 

Reliable  elevations  with  reference  to  a  sea  level 
datum  were  available  for  the  desired  horizons  from  all  explor¬ 
atory  wells  and  it  was  only  necessary  to  plot  the  values  at  the 
well  locations  and  to  contour  the  maps.  Both  plotting  and 
contouring  were  done  entirely  by  hand.  Equivalent  maps  could 
have  been  produced  by  computer  controlled  mechanical  means  but 
the  necessary  equipment  was  not  available. 

Contouring  experience  suggested  that  a  map  scale  of  four 
miles  to  one  inch  and  a  contour  interval  of  one  hundred  feet 
would  be  most  suitable  for  hand  contouring  maps  with  the  avail¬ 
able  density  of  control.  Tests,  made  by  trial  contouring  port¬ 
ions  of  the  area  using  half  the  well  data  then  measuring  the 
resulting  error  between  the  estimated  and  the  real  elevation  of 
the  remaining  wells,  indicated  the  accuracy  to  be  within  plus 
or  minus  50  feet.  In  many  places,  particularly  where  the  surf¬ 
aces  have  gentle  dips,  a  fifty  foot  contour  interval  could  have 
been  used.  However,  the  one  hundred  foot  interval  is  the  most 
suitable  overall. 

Maps  of  southern  Alberta  on  a  scale  of  four  miles  to 
one  inch  are  too  large  for  satisfactory  presentation  or  for 
contouring  in  one  piece.  The  maps  were  therefore  contoured  in 
segments  that  were  aligned  so  that  there  would  be  good  contin¬ 
uity  across  adjoining  edges.  After  contouring,  the  segments  were 
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photographically  reduced  and  joined  to  produce  a  working  suite 
of  maps  on  a  scale  of  twelve  miles  to  one  inch.  This  procedure 
permits  the  use  of  a  large  scale  for  ease  in  contouring  and  a 
smaller  scale  for  presentation.  The  contouring  was  semi-mech¬ 
anical  so  that  personal  prejudice  in  the  positioning  of  the 
contours  would  be  at  a  minimum.  The  large  scale  map  segments 
were  retained  so  that  they  could  be  used  in  the  digitizing 
process. 


Analytical  Procedure 

A  structural  analysis  generally  consists  of  two  main 
parts,  the  geometric  analysis  that  defines  the  structures  and 
the  kinematic-dynamic  analysis  that  suggests  the  movements 
giving  rise  to  the  structures  and  the  forces  required  to  cause 
the  movements.  An  accurate  geometric  analysis  of  a  specific 
structure  depends  on  the  ability  to  measure  its  physical  attri¬ 
butes  with  a  minimum. of  error,  even  though  the  original  struct- 
ure  may  be  distorted  by  conflicting  structures. 

A  preliminary  examination  of  the  structural  contour 
maps  indicated  the  presence  of  a  heterogeneous  range  of  struct¬ 
ural  features  distributed  over  all  the  surfaces  that  have;  a 
sampling  interval  of  five  miles  or  less.  These  structures 
range  in  size  from  the  large  scale,  regional  features  such 
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as  the  Sweet  Grass  Arch,  through  a  number  of  intermediate 
scale  (minimum  dimension  between  ten  and  fifty  miles)  to 
the  numerous  small  scale  crenulations  that  are  at  the  limit 
of,  or  beyond  the  resolving  power  of  the  well  spacing.  The 
initial  step  in  the  structural  analysis  requires  that  the 
intermediate  scale  features  be  physically  defined. 

A  structural  contour  map  represents  the  sum  of  the 
amplitudes  of  all  contained  structures  regardless  of  their 
scale.  Therefore  all  structures  conflict  with  each  other 
and  any  specific  structure  will  be  difficult  to  define  unless 
it  is  of  sufficiently  high  amplitude  to  stand  out  from  the 
general  background.  Unfortunately,  the  intermediate  scale 
structures  are  of  relatively  low  amplitude  and  are  masked  by 
the  high  amplitude  large  scale  structures  and  the  moderate 
amplitude  small  scale  structures.  The  small  scale  structures 
present  an  especially  difficult  problem.  Not  only  is  their 
amplitude  often  equal  to  that  of  the  intermediate  scale  features 
but  their  physical  size  can  cause  secondary  distortion  of 
both  the  intermediate  and  large  scale  features  (Figure  8)  by 
the  phenomenon  known  as  "aliasing"  (see  e.g.  Blackman  and 
Tukey,  1959,  p.  117). 

The  presence  of  a  structure  can  only  be  detected  if 
the  sample  density  is  equivalent  to  a  uniform  sampling  interval 


*  n*ilX  aril  ?B  sis' -arii  8noJtJeIa(re-io  al*08  ri»/s«  auonsaa  I  I 


c. 


Figure  8 


(a)  is  a  sinusoidal  wave  uniformly  sampled  at  less 
than  two  samples  for  each  wave  length 

(b)  shows  the  sample  values 

(c)  is  the  apparent  waveform  resulting  from  the 
inefficient  sampling 
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not  greater  than  the  width  of  the  structure.  Much  closer  sample 
spacing  is  necessary  before  the  structure  can  be  accurately 
defined.  Structures  too  small  for  the  sample  spacing  may  not 
be  seen  but  their  presence  still  distorts  the  analysis  of  the 
larger  features.  This  means  that  a  geometric  analysis  of  the 
intermediate  scale  structures  of  southern  Alberta  requires 
that  the  maps  must  be  first  processed  to  suppress  the  distortive 
effects  of  both  the  large  and  the  small  scale  structures. 

The  extraction  of  a  particular  range  of  structural 
features  from  a  heterogeneous  suite  of  structures  is  similar 
to  the  filtering  problem  of  extracting  a  useful  signal  from  a 
background  of  extraneous  noise.  The  mathematical  principles  of 
Filter  Theory  have  been  worked  out  for  communications  problems 
(see  e.g.  Lee,  i960)  and  the  same  concepts  can  be  adapted  to 
the  problem  of  suppressing  undesired  structures  in  a  geometric 
analysis  of  structural  contour  maps.  The  application  of  filtering 
principles  to  a  finite  two-dimensional  surface  is  known  as 
spatial  filtering.  Once  the  maps  have  been  filtered,  the  out¬ 
put  can  be  used  for  a  limited  but  rigorous  geometric  analysis. 

The  rigorous  geometric  analysis  can  be  amplified  by 
extrapolated  interpretation  and  the  complete  analysis  can  then 
be  used  to  interpret  the  kinematic  and  dynamic  relationships 
as  far  as  they  can  be  defined  within  the  limits  of  the  available 
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control.  Finally,  the  composite  structural  analysis  can  be 
used  to  postulate  on  the  geomorphlc  and  economic  significance 
of  tectonic  events  in  southern  Alberta. 
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CHAPTER  2  -  SPATIAL  FILTERING  OF 


STRUCTURAL  CONTOUR  MAPS 
Introduction 

Filters  are  generally  thought  of  as  contrivances  for 
freeing  liquids  of  suspended  impurities,  and  indeed,  the  earl¬ 
iest  filters  were  felt  mats  used  for  straining  liquors. 

Spatial  filters  can  similarly  be  considered  as  strainers  because, 
through  a  mathematical  process,  they  free  structural  contour 
maps  of  unwanted  information.  These  filters  are  specifically 
designed  to  suppress  the  unwanted  wavelengths  in  much  the  same 
way  that  electronic  filters  minimize  noise  in  radio  circuits. 

They  are  called  spatial  filters  because  they  act  on  functions 
of  distance  (or  space)  rather  than  the  more  usual  application  to 
functions  of  time.  In  the  mathematical  concept,  distance  and 
time  are  interchangeable.  Spatial  filtering  comes  under  the 
general  discipline  of  Filter  Theory.  From  among  the  many 
publications  dealing  with  this  topic  are  those,  ranging  from 
the  non-mathematical  to  the  rigorous,  by  Anstey  (1965), 

Peterson  and  Dobrin  (1965).,  Marshal  (1965)*  Robinson  and  Treitel 
(1964)  and  Lee  (i960). 

The  mathematical  approach  to  filtering  effectively 
began  early  in  the  nineteenth  century  when  Jean  Baptiste 
Joseph  Fourier  was  able  to  show  that  any  finite  function  of 
time  (and  thus  of  distance)  can  be  represented  by  the  sum  of 
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a  series  of  sine  and  cosine  waves  of  specific  amplitudes  and 
frequencies.  For  periodic  functions  the  Fourier  series  can  be 
expressed  as  (see  e.g.  Lee,  i960,  p.5) 
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where  ou1  in  radians  per  the  unit  length,  is  the  fundamental 
angular  frequency  and  is  equal  to  the  period  of  the  function  X1 
divided  by2Ttand  x  is  the  independent  variable.  The  length 
unit  must  be  selected  so  that  X1  is  an  integer  multiple. 

If  there  are  no  restrictions  on  length  the  summation  is 
replaced  by  the  Fourier  integral  (see  e.g.  Lee,  i960,  p.33) 

00  i  cox 

f(x)  =  1  /  F  ( a) )  e  dw  (4) 

2  ir  - 00 


30 


where  w  is  now  the  independent  angular  frequency  (equal  to  2tt 
times  the  spatial  frequency  or  wave  number  and  to  2 tt  divided 
by  the  wavelength)  and  x  is  the  distance  variable.  The 

k  * 

integral  can  be  made  to  represent  any  curve  that  can  be 
plotted  on  a  graph  in  terms  of  amplitude  and  distance  (e.g. 
a  structural  cross-section).  The  functions  f(x)  and  F(w)  are 
two  forms  of  the  same  information.  The  former  is  what  is  called 
the  distance  domain*  whereas  F(w)  is  the  identical  information 
in  terms  of  amplitude*  frequency  and  phase  of  the  constituent 
sinusoidal  waves  and  is  in  the  frequency  domain. 

t 

The  Fourier  integral  can  also  be  expressed  as 


°°  -  i  oj  x 

F ( a) )  =  /  f (x)  e  dx 

—  oo 


(5) 


These  equations*  known  as  Fourier  transforms*  permit  any 
continuous  linear  -function  to  be  transferred  from  one  domain 
to  the  other  (Figure  9). 

In  two  dimensions*  any  surface  such  as  a  structural 
contour  map  may  be  represented  by  the  summation  of  sinusoidal 
surfaces  (each  of  which  looks  like  a  sheet  of  corrugated  iron) 

t 

of  specific  amplitudes,  frequencies*  phases  and  directions. 

The  two  dimensional  Fourier  transforms  corresponding  to  eq¬ 
uations  4  and  5  are  (see  e.g.  Swartz*  1954*  p.  47) 


f(x,y)=  1 

4  TT  2 
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»  i ( wx,  ky ) 

/  F  ( oo*  k )  e 


—  oo 


—  00 


doo  d k 


(6) 
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Figure  9 

a)  A  one-dimensional  function  in  the  distance  domain. 

b)  The  same  function  in  the  frequency  domain;  both  the 
amplitude  spectrum  (continuous  line)  and  the  phase 
spectrum  (broken  line)  are  required  to  display  the 
constituent  spatial  frequencies. 
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Figure  10 

Filtering  in  two  domains,  (a)  Convolution  in  the  distance 
domain,  (b)  Multiplication  of  the  amplitude  spectrum  and 
addition  of  the  phase  spectrum  in  the  frequency  domain. 
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00  00  -  i  ( wx,  ky ) 

F(co/k)=  /  /  f(x,y)  e  dx  dy  (7) 

—  OO  —  00 

where  x  and  y  are  distances  in  rectangular  co-ordinates  and 
u>  and  k  *  are  the  corresponding  spatial  frequencies. 

Fundamentals  of  Spatial  Filtering 
The  process  of  filtering  suppresses  the  amplitudes  of 
certain  wavelengths  in  the  input  function  (e.g.  a  structural 
cross-section)  so  that -the  filtered  output  essentially  contains 
only  a  predetermined  and  desirable  range  of  wavelengths. 
Filtering  in  the  distance  domain  is  known  as  convolution  (see 
e.g.  Blackman  and  Tukey*  1959  p.  72)  and  in  one-dimension  can 
be  expressed  as 

oo 

0( X  )  =  /  l(x-X)  S ( X  )  dx  (8) 

0 

where  I ( x )  is  the  input  function*  S ( X )  is  the  lagged  filter 
and  0(x)  is  the  filtered  output.  The  Fourier  transform  of 
the  convolution  integral  is 

0(co)=  l(uj)  °  S(co)  (9) 

where  |(w)is  the  input  function  in  the  frequency  domain*  S(to) 
is  the  filter  and  0(w)  is  the  filtered  output.  Filtering  in 
the  frequency  domain  requires  only  that  the  filter  be  multiplied 
by  the  input  function*  whereas  filtering  in  the  distance  domain 
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necessitates  folding,  multiplication,  shifting  and  summation 
(Figure  10). 

Filtering  of  two-dimensional  functions  can  also  be 
carried  out  in  either  the  distance  of  the  frequency  domains; 
the  spatial  counterpart  of  the  convolution  integral  and  its 
Fourier  transform  are  (see  e.g.  Dean,  1958,  p.  100) 

00  00 

0(x/y)=  f  J  !(x-T/y-A)S(i/X)didX  (10) 

0  0 

0U,k)=  l(u),k)  •  SU,k)  (11) 

C 

Although  the  two-dimensional  equations  are  the  basis 
for  spatial  filtering,  they  are  not  readily  adaptable  to  struct¬ 
ural  contour  maps  in  their  continuous  form.  Spatial  filtering 
is  practical  only  when  it  is  carried  out  on  digital  computers 
which  can  convolve  and  transform  very  rapidly.  Digital  computers 
accept  a  function  only  if  it  is  approximated  by  a  series  of 
discrete  samples  taken  at  uniform  intervals  so  that  equations 
6,  7,  and  10  must  be  rewritten  in  digital  form.  Integration 
can  be  approximated  as  closely  as  desired  by  the  summation  of 
very  closely  spaced  data  points  taken  over  the  limits  of  the 
variable.  Structural  contour  maps  have  finite  areas  so  all 
values  beyond  their  edges  can  be  considered  as  zero.  There¬ 
fore,  the  digital  two-dimensional  Fourier  transforms  become 
(Gentleman  and  Sande,  1966,  p,  564) 
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a-1  b-1 
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a-1  b-1 

F(oj/  k)=  l  5]  f  (x/y)  e 
x=0  y =0 


i  ( ojx  +  kv ) 

ab 


(13) 


and  the  digital  form  of  spatial  convolution  is 

a-1  b-1 

0(x,y)=  l  l  l(x- T,y-X)  S  (  t  ,  A  )  (14) 

x=0  y=0 

Filter  Theory  and  Geology 
The  application  of  spatial  filtering  to  geological 
maps  can  be  described  in  non-mathemat ical  terms.  The  main 
premise,  (employing  the  principles  of  the  Fourier  series)  is 
that  any  geological  cross-section  or  contoured  map  can  be  dup¬ 
licated  by  adding  together  a  specific  number  of  sinusoidal  waves 
or  surfaces  (Figure  11 ).  Large  scale  structures  are  composed 
mainly  of  long  wavelength  sinusoids  while  small  scale  structures 
contain  only  the  short  wavelengths. 


A  structural  contour  map  represents  a  frequency  domain 


presentation  and  is  the  sum  of  all  constituent  sinusoids.  The 
individual  sinusoids  are  displayed  in  the  frequency  domain. 

The  amplitude  spectrum  of  the  individual  sinusoids  shows  their 
wave-length  and  height  while  the  phase  spectrum  illustrates 
their  position  with  respect  to  the  origin  (ordinate).  The 
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Figure  II 

(a)  is  a  symmetrical  function. 

(e)  is  the  approximation  of  (a)  produced 

by  the  addition  of  the  average  elevation 
(b)  and  sinusoids  (c)  and  (d). 
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phase  of  a  sinusoid  is  a  measure  of  the  offset  of  a  maximum 
from  the  origin,  zero  phase  occurs  if  the  maximum  is  at  the 
origin.  Since  the  phase  (position)  of  the  sinusoidal  surfaces 
is  related  to  the  location  of  the  structures  on  the  map,  spatial 
filters  for  geological  maps  do  not  change  phase  relationships. 

The  actual  filtering  process,  whether  it  is  called 
convolution  in  the  distance  domain  or  multiplication  in  the 
frequency  domain,  -simply  changes  the  amplitudes  of  some  of  the 
sinusoidal  surfaces  that  make  up  the  map.  If  the  sinusoids 
that  comprise  a  specific  structure  are  reduced,  the  amplitude 
of  the  structure  is  reduced  by  the  same  amount.  Spatial  filter¬ 
ing  enhances  the  interpretation  of  particular  structures  by 
suppressing  the  amplitudes  of  conflicting  structures  that 
fall  outside  of  the  desired  size  range  (Figure  12).  The  process 
is  similar  to  the  action  of  an  automobile  suspension  where  the 
springs  and  shock  absorbers  filter  out  the  short  wavelength 
road  undulations  while  passing  the  long  wavelength  bumps  and 
hills  without  change. 

Geologists  have  long  been  familiar  with  forms  of  filter¬ 
ing  in  their  use  of  regional,  residual  and  trend  surface  maps. 
Spatial  filtering  can  be  looked  upon  as  a  sophisticated  and 
mathematically  rigorous  approach  to  the  problem  of  producing 
valid  regional  and  residual  maps. 


. 
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Figure  12 

(a)  is  a  composit  waveform.  If  it  is  passed 
through  a  filter  so  that  (b)  and  (c)  are 
deleted,  the  output  will  be  (d). 
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History  of  Spatial  Filtering  and  Geology 

Spatial  filtering  of  structural  contour  maps  was  first 
carried  out  by  smoothing  the  contours  visually  to  produce 
regional  maps  without  local  variations.  Contouring  of  the 
differences  between  the  original  and  the  smooth  map  produced 
residual  maps  that  displayed  only  the  small  and  therefore  high 
frequency  features  (see  e.g.  Levorsen,  1927;  Rich,  1935a  and  b). 
This  fast  and  effective  technique  is  still  widely  used  although 
the  surface  and  residual  maps  are  influenced  to  a  large  extent 
by  the  person  doing  the  smoothing. 

Filtering  methods  were  improved  by  geophysicists  work¬ 
ing  on  the  interpretation  of  magnetic  and  gravity  potential 
fields.  One  method  uses  potential  field  theory  (see  e.g.  Grant 
and  West,  1965.,  chap.  8)  to  construct  a  grid  of  equally  spaced 
weighted  values  that  can  be  overlain  on  a  map  with  the  same 
sample  spacing.  A  new  map  is  produced  by  taking  the  average  of 
the  products  of  coincidental  values  as  the  grid  is  moved  step 
by  step  over  the  map.  The  process  is  similar  to  convolution 
and  produces  a  filtered  map. 

Peters  (1949)  calculated  averaging  grids  for  both 
upward  and  downward  magnetic  continuation,  while  Henderson  and 
Zietz  (1949)  did  the  same  for  the  second  vertical  derivative 
of  a  magnetic  field.  Griffin  (1949)  compared  various  grids  used 
for  computing  gravity  residuals.  Nettleton  (1954)  summarized 
the  various  graphical  and  derivative  methods  for  computing 


39 


averaging  grids  and  noted  the  strong  similarity  to  electrical 
filtering. 

Swartz  ( 195-4 )  demonstrated  that  a  contoured  map  could 
be  described  mathematically  by  a  two-dimensional  Fourier  Series. 
Dean  (1958)  used  the  basic  principles  of  filter  theory  to 
derive  the  relationship  between  gravity  and  magnetic  potential 
fields  and  their  derivative  maps.  Danes  and  Oncley  (1962)  used 
harmonic  analysis  to  describe  the  filtering  effect  of  several 
common  second  derivative  averaging  grids  and  compared  them  on 
the  basis  of  their  frequency  spectra.  Bhattacharyya  and 
Raychaudhuri  (1967)  have  used  two-dimensional  filters  to 
compute  the  equivalent  of  residual  and  derivative  magnetic  maps. 

Trend  analysis  of  structural  contour  maps  (Krumbine 
1959)  is  another  approach  to  filtering  that  also  has  its  roots 
in  geophysical  interpretation.  Agnocs  (1951 )  computed  region¬ 
al  maps  by  fitting  a  number  of  least  squares,  best  fit,  first 
order  polynomial  surfaces  to  segments  of  gravity  potential 
maps.  Simpson  (195^)  used  a  digital  computer  to  fit  first  to 
fourth  order  polynomial  surfaces  to  equally  spaced  gravity  data. 
Oldam  and  Sutherland  (1955)  used  orthogonal  polynomials  to 
compute  the  surfaces.  Grant  (1957)  introduced  the  term  "Trend 
Analysis"  and  discussed  methods  of  computing  polynomial  surfaces 
for  both  equally  spaced  and  random  data. 

Krumbine  (1956)  investigated  the  adaption  of  geophysical 
surface  fitting  methods  to  geological  interpretation  and  Miller 
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(1956)  hand  calculated  best  fit  surfaces  for  several  sediment¬ 
ary  environments.  Krumblne  (1959)  used  a  digital  computer  to 
fit  first  and  second  order  polynomial  trend  surfaces  to  randomly 
spaced  geological  data.  Miller  and  Kahn  (1962),  Krumbine 
and  Graybill  (1965)  and  Merrian  and  Cocke  (1967)  have  discussed 
many  of  the  applications  of  trend  analysis  to  geological  problems. 

Trend  surfaces  and  their  residuals  are  important  tools 
for  geological  interpretation  and  computer  programs  for  deriving 
first  to  sixth  order  surfaces  have  been  published  (Harbaugh, 

1963 ;  Good,  1964;  O’Leary,  Lippert  and  Spitz,  1966).  However, 
even  trend  surface  computations  are  beginning  to  be  influenced 
by  Fourier  techniques.  Harbaugh  and  Preston  (1965)  used  a  two- 
dimensional  Fourier  expansion  on  structural  data  with  a  uniform 
sampling  interval  to  approximate  a  polynomial  trend  surface. 

James  (1966)  fitted  two-dimensional  Fourier  series  to  irregular¬ 
ly  spaced  data. 

The  principles  of  spatial  filter  theory  were  described 
by  Swartz  (1954)  and  Dean  (1958).  Holloway  (1958)  designed  one¬ 
dimensional  filters  for  smoothing  time  series  and  two-dimension¬ 
al  filters  for  smoothing  contoured  maps.  Zurflueh  (1967)  applied 
spatial  filters  to  geophysical  data  and  illustrated  how  filter¬ 
ing  can  smooth  topographic  maps.  He  also  pointed  out  the  advant¬ 
ages  of  spatial  filtering  over  polynomial  trend  surfaces. 
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Gentleman  and  Sande (1966)  wrote  programs  for  fast  Fourier 
transforms  that  are  very  useful  In  harmonic  analysis  and 
spatial  filter  design. 

The  present  technique  of  spatial  filtering  requires 
uniformly  spaced  Input  data  but  Its  many  advantages  over  the 
older  filtering  methods  make  It  very  useful  for  geological 
Interpretation.  The  output  from  spatial  filtering  contains 
only  a  predetermined  range  of  structural  features  whose  width, 
amplitude  and  trend  can  be  defined  mathematically.  Filtered 
maps  can  be  compared  directly  and  even  used  to  construct 
isopachs  if  the  average  elevation  has  been  retained.  Where 
the  average  elevation  has  been  deleted  by  the  filtering  process, 
the  subtraction  of  one  surface  from  the  other  produces  negative 
anomalies  in  place  of  the  usual  thicks  and  thins.  The  result 
is  an  nApostreptic  1  map  instead  of  the  more  usual  isopach. 
Apostreptic  is  derived  from  a  Greek  adjective  referring  to  a 
divergence  from  the  normal. 
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Distance  and  Frequency  Domain  Filtering 

Spatial  filtering  is  apparently  much  simpler  in  the 
frequency  (equation  9)  than  in  the  distance  domain  (equation 
14).  It  is  only  necessary  to  compute  the  two-dimensional  Fourier 
transform  of  the  input  map,  delete  any  undesired  frequencies 
and  carry  out  the  inverse  transform.  The  output  from  the  latter 
transform  is  the  filtered  map. 

Unfortunately  it  is  very  difficult  to  obtain  an  accurate 
transform  of  a  map  surface  from  normal  digital  elevations  with¬ 
out  some  preliminary  adjustments.  The  problems  can  be  illustrat¬ 
ed  by  considering  the  one-dimensional  Fourier  transform  of  a 
structural  cross-section. 

The  amplitude  and  phase  spectrum  of  a  cross-section 
consists  of  the  sum  of  all  spectra  from  the  structures  contain¬ 
ed  in  the  section.  This  sum  includes  the  spectrum  of  the  aver¬ 
age  elevation  plus  the  spectrum  of  the  abrupt  discontinuities 
caused  by  any  difference  in  elevation  between  the  two  ends  of 
the  section  (Figure  13). 

Since  only  the  geological  structures  are  to  be  filtered 
it  is  necessary  to  eliminate  the  effects  of  all  other  components 
before  transforming  to  the  frequency  domain.  Most  of  the  unwant¬ 
ed  effects  can  be  removed  by  subtracting  the  average  elevation 
and  windowing  the  section  (see  e.g.  Blackman  and  Tukey,  1958* 
p.  77)  but  this  causes  frequency  domain  filtering  to  become  a 
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Figure  13 

(a)  is  a  structural  cross-section  and  its  amplitude  spectrum. 

(b)  shows  the  geological  structures. 

(c)  is  the  a  verage  elevation  and  (d)  is  the  effect  caused 
by  differences  in  elevation  at  the  ends  of  the  section. 
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longer  and  more  complicated  process  than  one- dimensional 
convolution  In  the  distance  domain.  There  are  similar  problems 
with  two-dimensional  filtering  of  structural  surfaces. 

Thus,  in  general,  spatial  filtering  of  structural 
contour  maps  on  a  digital  computer  is  faster  and  simpler  when 
carried  out  by  convolution  in  the  distance  domain.  Spatial 
filters  for  geological  maps  are  usually  small  in  area  and  can 
easily  be  checked  for  mechanical  errors.  Since  they  act  on 
only  a  limited  portion  of  the  map  at  any  one  time,  edge  effects 
are  at  a  minimum  and  large  maps  can  be  segmented  and  filtered 
separately  with  only  one-half  a  filter  width  required  for  over¬ 
lap. 


Spatial  Filter  Design 

In  one-dimensional  structural  cross-sections  the 
amplitudes  of  the  component  frequencies  can  be  shown  to  determ¬ 
ine  the  relief  of  the  structural  features,  whereas  phase  determ¬ 
ines  their  location.  Similarly,  in  two  dimensions,  phase 
determines  both  position  and  orientation  of  the  structural 
features.  Therefore,  the  phase  characteristics  of  the  input  map 
must  not  be  altered  during  filtering;  to  do  so  would  be  equiv¬ 
alent  to  moving  the  structures  and  changing  their  orientation. 
Phase  angles  are  additive  in  the  filtering  process  (see  e.g. 
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Anst ey,  1965*  p.  30),  therefore  no  phase  changes  occur  if  all 
phase  angles  in  the  filter  are  zero. 

A  complex  continuous  one-dimensional  frequency  function 
F(w)  can  be  separated  into  its  real  and  imaginary  parts  (see 
e.g.  Lee,  I960,  p.  34): 

F  ( to )  =  P(<o)  +  i  Q  ( a) )  (15) 

where  p(co)  and  CK^)  are  real  and  are  the  components  making 
up  the  complex  function  F(to).  The  amplitude  spectrum  |F(co)| 
and  the  phase  spectrum  9(w)  are  given  by 

|  F  ( a) )  |  =  /P2  ( to )  +  Q2U)  (16) 

0  ( io )  =  tan”1  Q  ( a) )  (17) 

PU) 

where  the  phase  of  a  particular  frequency  is  the  angle  with_which 
the  waveform  leads  or  lags  an  arbitrarily  designated  zero  origin. 
Now  0(a))  will  equal  zero  if  q(w)  equals  zero  and  for  the  filter, 

F ( to )  must  then  equal  P(to).  From  Euler's  identity 

oo 

P(to)=  /  f(x)  cos  tox  dx  (18) 

—  oo 

similarly  in  two-dimensions 

oo  oo 

P(to/k)=  /  /  f(x,y)  cos  tox  cos  ky  dx  dy 


—  oo 


—  00 


(19) 
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so  that  zero-phase  filters  consist  entirely  of  cosine  terms. 

Since  cosines  are  even  functions,  one-dimensional  filters  must 
have  bilateral  symmetry  about  the  zero  origin.  The  symmetry 
of  two-dimensional  filters  must  be  at  least  orthorhombic. 

Such  filters  suppress  structural  features  on  the  basis  of 
both  wavelength  and  direction.  Spatial  filters  that  suppress 
structural  features  on  the  basis  of  wavelength  alone  have 
axial  symmetry. 

Spatial  filters  should  be  designed  expressly  to  suppress 
unwanted  wavelengths.  Therefore,  the  first  step  in  the  construct 
ion  of  a  spatial  filter  is  to  determine  what  wavelengths  are 
present  in  the  original  structural  contour  map  and  their  respec¬ 
tive  amplitudes.  This  can  be  done  by  computing  one-dimensional 
amplitude  spectra  (see  e.g.  Blackman  and  Tukey,  1959*  P.  90) 
for  two  or  three  cross-sections  that  give  a  statistical  represent 
ation  of  the  structures  present.  The  phase  spectrum  need  not 
be  known,  for  spatial  filters  are  specifically  designed  to 
have  zero-phase  characteristics.  The  sections  should  be  sampled 
at  very  close  intervals  because  a  particular  wavelength  will 
appear  in  its  proper  position  in  the  amplitude  spectrum  only 
if  it  is  longer  than  twice  the  sampling  interval  (see  e.g. 
Goldman,  1953*  p.  67) »  wavelengths  too  short  for  the  sampling 
interval  appear  as  aliased  additions  to  the  amplitudes  of 
longer  wavelengths.  Consequently,  if  the  sampling  interval 
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is  too  large  the  shorter  wavelengths  are  not  detected  and 
the  relative  amplitudes  of  the  longer  wavelengths  incorrectly 
estimated  (see  e.g.  Peterson  and  Dobrin,  19 66,  p.  14). 

The  spatial  filter  is  designed  in  the  frequency  domain 
as  follows.  The  one-dimensional  amplitude  spectra  from  the 
selected  cross-sections  are  averaged  to  obtain  a  statistically 
valid  estimate  of  what  wavelengths  are  prominent  in  this 
original  contour  map.  The  large  scale  structures  are  represent¬ 
ed  mainly  by  the  long  wavelengths.  Spatial  filters  can  be 
designed  to  enhance  any  structure  with  a  width  greater  than 
the  digitizing  interval.  However,  the  frequency  pass-bands 
should  not  be  terminated  abruptly,  since  there  is  usually  a 
considerable  overlap  in  the  frequency  ranges  of  the  various 
structures . 

The  amplitude  spectrum  of  the  filter  is  so  designed 
that  multiplication  by  the  average  amplitude  spectrum  of  the 
cross-section  produces  the  desired  output  amplitude  spectrum 
(Figure  14).  The  amplitudes  in  the  filter  are  set  equal  to 
one  for  wavelengths  that  are  to  be  passed  unchanged,  and 
smoothly  reduced  to  zero  where  wavelengths  are  to  be  suppressed 
or  terminated.  Changes  in  the  filter  amplitude  spectrum  should 
be  smooth,  since  abrupt  corners  produce  undesirable  side  effects 
in  the  finished  filter.  This  one-dimensional  amplitude  spectrum 
is  a  cross-section  through  the  axially  symmetrical  two-dimen¬ 
sional  filter.  The  complete  two-dimensional  frequency  domain 
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Figure  14 

Filter  design  in  the  frequency  domain,  (a)  Average  amplitude 
spectrum  of  three  cross-sections  from  the  map  in  Figure  6. 

(b)  Desired  amplitude  spectrum,  (c)  Amplitude  spectrum  of 
the  zero  phase  filter  required  to  produce  (b). 


Cross-section  through  a  two-dimensional  band-pass 
spatial  filter. 


/ 


49 


filter  is  then  constructed,  digitized  and  transformed  by  equation 
(12)  to  arrive  at  the  two-dimensional  spatial  filter. 

Theoretically,  spatial  filters  extend  to  infinity. 
However,  if  the  amplitude  spectrum  of  the  filter  is  smoothly 
rounded,  the  amplitude  of  the  distance  domain  transform  becomes 
and  remains  negligible  a  short  distance  from  the  origin  so  that 
the  filter  can  be  safely  truncated  at  the  second  or  third  zero 
crossing.  The  size  of  the  final  filter  depends  on  the  frequency 
range  it  is  designed  to  pass; narrow  band  filters  are  large  in  a 
real  extent  whereas  wide  band  filters  are  small.  Transformation 
to  the  distance  domain  is  carried  out  on  a  digital  computer  with 
the  spatial  filter  in  digital  form.  However,  the  filter  can  be 
considered  as  a  continuous  two-dimensional  function  if  it  needs 
to  be  redigitized  (Figure  1.5)*  When  the  average  elevation  of  the 
original  structural  contour  map  (the  zero  frequency)  is  to  be 
passed  unchanged,  the  sum  of  the  filter  weights  should  equal 
unity.  If  the  average  elevation  is  to  be  removed,  the  sum  of  the 
weights  should  be  zero. 

Truncation  of  Spatial  Filters 

The  distance  domain  transform  of  a  band  limited  frequency 
function  has  infinite  length.  If  the  function  is  to  be  used  as  a 
spatial  filter  it  must  be  truncated  at  a  convenient  and  practical 
distance  from  the  origin.  Unfortunately  truncation  can  alter  the 
frequency  spectrum  of  the  filter  and  considerable  care  must  be 
taken  to  ensure  the  alteration  is  kept  within  tolerable  limits. 
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The  degree  of  alteration  can  be  determined  by  taking  the  inverse 
Fourier  transform  of  tne  truncated  filter  and  comparing  it  with 
the  original  spectrum.  Iterative  checking  is  slow  but  it  can  be 
kept  to  a  minimum  if  the  original  frequency  spectrum  has  been 
carefully  designed. 

This  filter  distortion  can  be  illustrated  (Figure  16) 
by  considering  the  inverse  transforms  of  a  one-dimensional 
rectangular  frequency  function  that  has  been  abruptly  truncated. 
If  there  is  a  sharp  cut  off  at  a  value  other  than  zero,  the  in¬ 
verse  transform  has  negative  side  lobes  that  in  the  frequency 
domain  const itue  phase  inversions  (see  e,g.  Blackman  and  Tukey, 
1958,  p.  68).  Truncation  at  a  zero  crossing  prevents  phase 
distortion  but  there  is  still  a  considerable  change  from  the 
original  rectangular  spectrum. 

If  the  original  frequency  spectrum  is  rounded  so  its 
ends  have  a  gauss ian  or  a  cosine  shape  (see  e.g.  Blackman  and 
Tukey,  1958  p.  95) >  the  amplitude  of  the  distance  domain  trans¬ 
form  becomes  and  remains  negligible  within  a  reasonable  distance., 
from  the  origin.  When  this  happens  it  can  then  be  safely  trunc¬ 
ated  with  a  minimal  effect  on  the  frequency  spectrum  (Figure  17). 

The  tapered  frequency  spectrum  also  has  other  advantages. 
Geological  structures  vary  in  size  and  there  is  usually  consider¬ 
able  overlap  in  their  frequency  spectra  and  the  contribution 
of  individual  features  can  only  be  determined  in  very  general 
terms.  Consequently  any  sharp  termination  of  the  frequency 
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Figure  16 

(a)  is  an  amplitude  spectrum  and  its  freauency  domain  transform  (b) 

(c)  is  the  inverse  transform  of  the  distance  function  truncated  at  1. 

(d)  is  the  inverse  transform  of  the  distance  function  truncated  at  2. 
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domain  filter  would  be  very  arbitrary  and  more  difficult  to 
justify  on  a  geological  basis  than  a  broad  tapered  filter 
with  its  fundamental  frequency  determined  from  the  width  of 
the  desirable  structures.  The  filter  frequency  spectra  with 
tapered  ends  is  the  most  desirable  from  the  theoretical  and 
the  geological  viewpoints  and  is  therefore  considered  the 
optimum  form  for  spatial  filters. 

Amplitude  of  Filtered  Structures 

The  relief  of  a  structure  on  a  contoured  map  can 
be  considered  as  a  function  of  the  amplitudes  of  its  component 
spatial  frequencies.  If  the  structure  is  filtered  and  all 
frequency  (wavelength)  components  are  retained  in  their 
true  magnitude  the  output  structure  will  retain  its  real 
amplitude.  However,  if  any  of  the  component  amplitudes  are 
reduced  the  filtered  structure  will  also  oe  reduced  in  amplitude. 

Edge  loss  in  filtered  maps  requires  severe  rounding 
of  the  amplitude  spectrum  to  prevent  phase  distortion.  There¬ 
fore,  only  a  few  of  the  frequency  components  making  up  the 
desired  structures  will  be  retained  at  their  true  amplitude 
and  there  will  be  a  reduction  in  apparent  structural  relief. 

If  there  are  a  variety  of  structures,  the  reduction  in  relief 


will  not  be  uniform  but  will  be  less  for  those  structures  with 
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Figure  17 

(a)  is  a  smoothly  terminated  amplitude  spectrum  and  its  distance  domain  transform  (b) 
(c)  is  the  inverse  transform  of  the  distance  function  terminated  at  1. 
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an  amplitude  spectrum  close  to  the  filter  spectrum.  This  means 
that  the  amplitude  of  structures  retained  in  most  geological 
filtered  maps  is  not  absolute  and  should  only  be  considered 
as  a  relative  measure  of  structural  relief. 

It  is  not  practical  to  restore  true  relief,  but  the 
filters  can  be  adjusted  to  output  the  desired  structures  with 
an  average  relief  that  is  realistic  by  comparison  with  the 

original  maps.  This  is  done  by  changing  the  gain  (or  amplific- 

\ 

ation)  of  the  spatial  filter.  The  filtered  output  structures 
can  be  made  larger  or  smaller  by  multiplying  the  distance 
domain  coefficients  by  a  factor  proportional  to  the  desired 
change.  Since  all  coefficients  are  changed  by  the  same  prop¬ 
ortion,  bandpass  characteristics  are  not  altered.  However, 
distortions  that  are  negligible  in  a  unity  gain  filter  can 
become  important  if  they  are  highly  amplified  and  must  be 
considered  whenever  the  relief  of  a  structure  is  greatly 
increased . 

Directional  Spatial  Filters 

Spatial  filters  normally  suppress  wavelengths  and 
therefore  structures  regardless  of  their  orientation.  How¬ 
ever,  if  the  undesired  features  have  a  strong  directional 
trend,  filters  can  be  designed  that  suppress  structures 
on  the  basis  of  their  orientation  as  well  as  wavelength. 
Directional  spatial  filters  can  remove  conflicting  structures 
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in  the  same  size  range  as  the  desired  structures  providing 
there  are  distinct  angular  differences  in  trend. 

Design  requirements  for  directional  spatial  filters 
are  similar  to  the  requirements  for  the  non-direct ional  ones 
in  that  they  must  have  zero  phase  characteristics  and  there 
should  not  be  any  abrupt  discontinuities  in  the  frequency 
domain  amplitude  spectrum.  A  frequency  domain  directional 
filter  (Figure  18)  looks  like  the  ordinary  two-dimensional 
non-directional  filter  but  with  wedge  shaped  slices  symmetrical¬ 
ly  removed  from  about  the  u>  axis.  The  angle  of  the  zero 
amplitude  represents  the  angular  range,  but  not  the  direction, 
of  the  structures  that  will  be  suppressed.  This  frequency 
domain  filter  is  then  transformed  into  the  distance  domain 
for  use  in  the  actual  filtering  operation. 

The  zero  phase  characteristics  of  the  directional 
filter  can  be  shown  from  a  consideration  of  the  two-dimensional 
digital  frequency  to  distance  transform  for  zero  phase  conditions. 
From  equation  19  the  digital  zero  phase  transform  can  be  written 


a  - 1  b-1 

f(x,y)=  1  l  l  PCk/O))  cos  (dx  cos  ky 

4  tt  2  u)  =  0  k  =  0 


(20) 
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Figure  18 

j 

The  amplitude  spectrum  of  a  directional,  two-dimensional  band  pass  filter. 
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which  is  usually  computed  in  two  stages 


b-1 

H(x,k)=  l  P(k,u))  cos  co x  (21) 

co  =  0 


and 


a-1 

f(x/y)=  1  l  H(x/k)  cos  ky  (22) 

4  tt  2  k  =  0 


This  means  the  matrix  of  frequencies  can  be  transformed,  first 
of  all,  row  by  row  and  the  results  then  transformed  column  by 
column  to  complete  the  process.  It  can  be  seen  (Figure  18) 
that  the  directional  filter  is  symmetric  about  the  k  axis 
so  individual  rows  are  symmetrical  functions  and  their  transforms 
must  be  symmetric.  Since  the  original  filter  was  also  symmetric 
about  the  co  axis  it  follows  that  the  symmetry  will  be  retained 
in  the  partial  transform  and  in  the  second  stage,  column  by 
column  transform  that  produces  the  completed  two-dimensional 
distance  domain  function.  Symmetrical  functions  are  cosine 
functions  and  therefore  the  two  dimensional  directional 
filter  will  have  the  necessary  zero  phase  characteristics. 


After  transformation  to  the  distance  domain  the 
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directional  filter  is  truncated  and  aligned  to  suppress  wave¬ 
lengths  with  a  specific  direction.  Now,  however,  the  folding 
part  of  convolution,  which  was  neglected  for  the  non-direction- 
al  filters  must  be  included  in  the  convolution  of  directional 
filters.  Accurate  alignment  of  the  directional  filter  is 
critical  so  it  is  advantageous  to  align  the  filter  with  the  map 
exactly  and  carry  out  the  folding  manually  before  the  direction¬ 
al  filter  is. digitized.  This  manual  process  not  only  minimizes 
errors  but  allows  the  same  relatively  simple  convolution 
program  to  be  used  for  both  directional  and  non-directional 
spatial  filtering. 


Spatial  Filtering  Procedure 

The  first  step  in  the  spatial  filtering  of  a  structural 
contour  map  is  to  compute  the  amplitude  spectra  of  two  or  three 
closely  sampled  cross-sections.  From  these  spectra  and  from  an 
inspection  of  the  map,  the  filter  is  designed  as  previously 
described.  The  next  step  is  to  digitize  the  filter  and  the 
map.  The  optimum  digital  interval  depends  on  both  the  average 
spectrum  of  the  cross-sections  and  the  frequency  range  of  the 
filter.  For  convenience  the  digital  interval  should  be  as 
large  as  possible  without  distorting  the  filtering  process. 

If  the  digital  interval  for  the  cross-sections  is  short  enough 
the  average  amplitudes  will  decrease  as  the  wavelengths  decrease. 


.. 
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Although  some  leeway  Is  permissible,  the  best  digitizing 
interval  is  half  that  wavelength  beyond  which  the  amplitudes 
of  shorter  wavelengths  are  more  than  an  order  of  magnitude 
smaller  than  those  in  the  filter  passband  (Figure  19).  Once 
the  input  map  and  the  filter  have  been  digitized  the  convolution 
can  be  carried  out. 

Digital  convolution  implies  folding,  multiplication, 
summation  and  shifting.  However,  linear  filters  have  axial 
symmetry  and  most  spatial  filters  have  bilateral  symmetry  so 
that  folding,  which  is  a  reversal  of  the  filter,  can  be  negle¬ 
cted.  Therefore,  filtering  of  cross-sections  requires  only 
that  the  digitized  filter  be  superimposed  on  the  section. 
Corresponding  values  are  then  multiplied  and  totalled  to 
arrive  at  a  new  value  which  is  the  filtered  output  for  the 
centre  position  of  the  filter.  The  filter  is  then  shifted 
one  digital  interval  and  the  process  repeated  until  the  filter 
has  been  moved  along  the  entire  section.  Spatial  filtering  is 
done  in  much  the  same  way,  although  in  this  case  both  map  and 
filter  are  in  matrix  rather  than  linear  form.  As  all  values 
beyond  the  borders  of  the  map  are  considered  to  be  zero,  the 
filtered  output  has  meaning  only  when  the  filter  does  not 
cover  any  of  the  zero  values.  This  means  that  a  zone  equal 
to  half  the  width  of  the  filter  is  lost  from  the  edges  of  the 
map  area.  Consequently  narrow  band  filtering  of  small  or 
narrow  map  areas  is  impractical. 
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Figure  19 

Average  amplitude  spectrum  of  three  cross-sections  from 
the  map  in  Figure  6  (solid  line)  and  the  desired  output 
spectrum  (broken  line).  Wavelengths  shorter  than  A  can 
be  ignored  for  their  amplitudes  are  less  than  a  fiftieth 
of  the  amplitudes  in  the  filter  pass  range.  The  wave¬ 
length  at  A  is  two  miles,  so  that  map  was  digitized  at 
an  interval  of  one  mile. 
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The  filtered  computer  output  can  be  arranged  in  a  format 
that  duplicates  the  shape  of  the  original  structural  contour 
map  so  that  by  photographic  reduction  the  filtered  map  will  be 
on  the  same  scale  as  the  original.  If  a  two-dimensional  plott¬ 
er  is  available,  the  filtered  map  can  be  plotted  directly  on 
the  scale  of  the  original.  Since  the  filtered  output  varies 
smoothly  and  has  a  uniform  spacing,  the  spatially  filtered 
maps  are  adaptable  to  computer  contouring  programs  and  if 
sufficient  equipment  is  available  the  production  of  the  new 
maps  can  be  entirely  mechanical. 

Example  of  Spatial  Filtering 
The  spatial  filtering  method  was  given  a  preliminary 
test  on  the  southernmost  portion  of  the  structural  contour 
map  on  the  sub-Cretaceous  unconformity  (Figure  20).  This 
surface  was  chosen  because  it  exhibits  a  wide  variety  of 
structural  features  including  some  that  are  known  to  have 
a  tectonic  origin  (see  e.g.  Russell,  1932). 

An  examination  of  the  original  map  suggested  the 
presence  of  some  structural  features,  ten  to  twenty  miles 
in  width  and  trending  either  NE/SW  or  NW/SE,  but  partially 
masked  by  strong  regional  gradients  and  numerous  small  scale 
structures.  The  map  examination  was  complimented  by  a  study 
of  an  average  amplitude  spectrum  compiled  from  a  harmonic  anal¬ 
ysis  of  three  cross-sections  of  the  area  that  had  been  digitized 
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Figure  20 


Structural  contours  on  the  sub-Cretaceous 
unconformity  of  southern  Alberta. 
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a  quarter  mile  interval  (Figure  19).  The  combined  analysis 
suggested  that  a  new  map  with  wavelengths  limited  to  those  bet¬ 
ween  eight  and  eighty  miles  would  display  the  intermediate 
scale  structures  to  the  best  advantage. 

A  spatial  filter  was  designed  in  the  frequency  domain 
to  pass  the  required  wavelengths  and  then  transformed  by 
digital  computer  into  the  distance  domain.  The  amplitude 
spectrum  showed  that  the  amplitudes  of  wave-lengths  less  than 
two  miles  are  insignificant  so  that  the  map  and  filter  were 
digitized  on  a  one  mile  interval.  The  computer  was  then  used 
to  convolve  the  filter  with  the  map,  producing  a  new  spatially 
filtered  map  in  which  the  effects  of  the  long-wave  length 
regional  features  and  the  short-wave  length  small  scale 
structures  have  been  virtually  eliminated  (Figure  21 ).  The 
intermediate  scale  structures  are  now  readily  apparent  and  can 
be  described  in  terms  of  relief,  length,  width  and  direction. 

A  comparison  of  the  original  and  filtered  map  shows 
that  the  retained  features  are  still  in  their  correct  position 
and  have  their  original  shape.  Spatial  filtering  has  not  moved 
or  distorted  the  desired  features,  it  has  only  eliminated  the 
undesired  ones.  The  test  map  also  indicates  that  the  majority 
of  the  intermediate  scale  structures  have  a  minimum  dimension 
greater  than  ten  and  less  than  forty  miles.  This  new  informat¬ 
ion  on  the  size  of  the  structures  suggests  that  it  would  not  have 
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Filtered  output  from  the  map  in  Figure  6.  Wavelengths 
between  eight  and  eighty  miles  have  been  retained. 
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been  necessary  to  retain  wavelengths  as  short  as  eight  miles 
in  the  filtered  map.  The  absolute  amplitude  spectrum  shows 
that  if  only  those  wavelengths  longer  than  ten  miles  were  to 
be  retained,  the  digital  interval  could  be  increased  from  one 
to  two  miles  without  unduly  harming  the  filtered  output.  This 
means  that  the  work  required  to  digitize  and  filter  the  remain¬ 
ing  maps  need  be  only  one  quarter  of  that  required  to  maintain 
the  one  mile  interval.  Such  a  preliminary  test,  using  a  small 
digital  interval  is  advisable  in  any  new  area. 

The  spatial  filter  passes  the  desired  structures  and 
appears  to  be  relatively  satisfactory.  However,  the  final 
stages  of  determining  the  best  filter  are  iterative  and 
similar  filters,  with  slightly  modified  passbands,  should 
be  tested  before  the  optimum  filter  for  the  area  is  chosen. 
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CHAPTER  3 

PROCESSING  OF  SOUTHERN  ALBERTA 
STRUCTURAL  CONTOUR  MAPS 

Introduction 

Structural  contour  maps  of  a  particular  stratigraphic 
horizon  include  the  algebraic  sum  of  all  movements  that  have 
affected  it  since  its  formation.  Therefore,  structural  contour 
maps  from  several  horizons  from  the  same  area  can  be  used  to 
determine  the  timing  of  these  movements,  providing  their 
effect  can  be  accurately  measured  on  each  map  and  separated 
from  original  depositional  relief.  Accurate  measurement 
requires  that  the  analytical  techniques  must  be  applied  un¬ 
iformly  to  each  map  in  the  group  and  all  data  processing  proc¬ 
edures  (such  as  spatial  filtering)  must  be  designed  to  apply 
to  the  group  and  not  to  individual  units. 

For  spatial  filtering  to  be  effective,  the  filter  design 
should  take  into  account  the  amplitude  spectrum  of  the  desired 
structures  and  the  useful  part  of  the  amplitude  spectrum  of 
the  maps.  The  map  amplitude  spectrum  can  be  considered  use¬ 
ful  for  all  wavelengths  longer  than  twice  the  uniform  equiv¬ 
alent  well  spacing.  The  amplitude  spectrum  of  the  structures 
present  in  the  map  cannot  be  accurately  determined.  However, 
for  any  particular  structure  it  can  be  estimated  to  extend  over 
at  least  one  octave  (an  interval  of  frequencies,  the  higher 
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of  which  is  double  the  lowest)  on  either  side  of  a  center 
frequency  with  a  wavelength  approximately  equal  to  twice  the 
minimum  dimension  of  the  structure. 

To  ensure  reasonable  definition  of  all  desired 
structures  in  a  spatially  filtered  map,  the  original  map 
must  have  a  uniform  equivalent  well  spacing  of  at  least  two 
wells  for  each  minimum  dimension  (width)  of  the  smallest  of 
the  desired  structures.  Structures  smaller  than  this  may  be 
present  but  they  will  be  only  partially  defined  in  the  original 
maps  and  in  any  filtered  output. 

Intermediate  scale  structures  are  defined  as  those 
with  a  minimum  dimension  of  between  ten  and  fifty  miles.  Thus 
only  structural  contour  maps  with  a  uniform  equivalent  well 
spacing  of  five  miles  or  less  can  be  considered  for  processing 
with  spatial  filters  designed  to  accentuate  the  intermediate 
scale  structures.  Therefore,  of  the  following  five  structural 
contour  maps  of  southern  Alberta  only  the  first  four  are  suit¬ 
able  for  spatial  filtering  in  terms  of  the  intermediate  scale 
structures . 

a.  The  top  of  the  First  White  Specks.  (Well 
interval  3.7  miles) 

b.  The  base  of  the  Fish  Scale  sandstone.  (Well 
interval  3.9  miles 

c.  The  sub-Cretaceous  unconformity.  (Well 
interval  4.1  miles) 
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d.  The  Devonian  top. (well  interval  5.1  miles) 

e.  The  top  of  the  Elk  Point. (well  interval  13  miles) 

Frequency  Analysis 

The  initial  step  in  the  design  of  a  spatial  filter  is 
to  determine  the  frequency  content  of  the  filterable  maps. 

This  was  done  by  computing  a  number  of  one-dimensional  amplitude 
spectra  that  represent  the  structural  features  of  the  southern 
Alberta  horizons.  Amplitude  spectra  for  the  various  maps  were 
computed  using  Computer  Program  1  (Appendix)  from  cross-sections 
positioned  to  intersect  the  most  prominent  structures  in  each 
of  the  three  scales  and  digitized  to  a  series  of  uniformly 
spaced  discrete  elevations.  The  individual  spectra  were  then 
combined  and  their  envelope  used  as  a  composite  amplitude  for 
spatial  filter  design.  The  use  of  the  envelope  of  the  individual 
spectra  assures  that  potential  filter  design  problems  caused  by 
local  high  amplitude  structures  will  be  included  in  the  comp¬ 
osite  amplitude  spectrum. 

A  preliminary  examination  of  the  original  structural 
contour  maps  suggested  that  the  large  scale  features  are 
fairly  uniformly  represented  but  the  small  scale  ones  are  more 
numerous  and  prominent  on  the  sub-Cretaceous  unconformity. 

Small  scale  structures  contribute  mainly  to  the  high  spatial 
frequencies  and  therefore  influence  the  digital  interval  for 
the  maps  as  the  high  frequency  portion  of  the  spatial  filter. 
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They  may  also  require  a  digital  Interval  that  Is  as  close  as  one 
tenth  of  the  well  spacing  for  evaluation  and  for  this  reason  a 
trial  cross-section  on  the  sub-Cretaceous  unconformity  was 
digitized  on  a  one-quarter  mile  spacing  and  Its  amplitude 
spectrum  computed.  The  results  for  the  full  map  confirmed 
the  findings  In  the  test  area  (Figure  16)  and  the  relatively 
small  amplitude  in  two  mile  wavelength  vicinity  suggested  that 
a  one  mile  digital  interval  would  be  sufficient  for  the  remain¬ 
ing  sections. 

Two  additional  sample  spectra  from  the  sub-Cretaceous 
unconformity  and  one  from  each  of  the  remaining  maps  were 
computed  (Figure  22)  using  the  one  mile  digital  interval  and 
combined  into  a  composite  spectrum  (Figure  23).  The  envelope 
for  the  composite  spectrum  was  obtained  by  connecting  the  points 
of  maximum  amplitude  of  the  superimposed  individual  spectra. 


Spatial  Filter  Design  for  Southern  Alberta 

Spatial  filters  are  designed  in  the  frequency  domain 
by  computing  the  multiplication  factors  required  to  produce 
the  desired  amplitude  spectrum  from  the  composite  amplitude 
spectrum  of  the  input  maps.  An  ideal  spatial  filter  should 
selectively  pass  only  those  frequency  components  that  make  up 
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Figure  22 

One-dimensional  absolute  amplitude  spectra  computed  from  cross-section  selected 
from  the  structural  contour  maps  of  Southern  Alberta.  The  spectra  are  symmetrical 
about  the  origin. 
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FREQUENCY  (CYCLES  PER  MILE) 

Figure  23 

Composite  amplitude  spectrum  of  the  structural  contour  maps  of  Southern  Alberta 
obtained  from  the  individual  spectra  of  Figure  19  by  connecting  points  of 
maximum  amplitude. 
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the  desired  structures  and  eliminate  all  others.  However,  the 
frequency  ranges  of  the  different  scales  of  geological  structures 
usually  overlap  and  there  is  no  way  of  selectively  apportion¬ 
ing  components  of  a  particular  frequency.  The  amplitude  spectrum 
of  the  map  and  of  the  desired  structures  can  be  only  roughly 
estimated.  The  best  spatial  filter  that  can  be  designed  from 
a  study  of  the  composite  amplitude  spectrum,  the  original  maps 
and  even  a  single  trial  filter,  is  still  only  an  estimate. 

Whether  or  not  it  is  the  best  estimate  must  be  proven  by 
comparing  its  performance  against  other  similarly  estimated 
filters.  A  rigorous  mathematical  technique  for  optimizing  a 
spatial  filter  has  not  as  yet  been  developed  (Zurfleuf,  1967, 
p.  1019). 

The  structural  contour  maps  of  southern  Alberta  and 
the  test  map  (Figure  21 )  apparently  contain  a  variety  of  inter¬ 
mediate  scaled  structures  between  ten  and  twenty  miles  in  width. 
This  suggests  that  the  high  amplitudes  shown  in  the  composite 
amplitude  spectrum  for  all  wavelengths  longer  than  fifty 
miles  are  caused  by  the  large  scale  features  and  should  not  be 
retained  in  the  filtered  output.  Since  there  should  be  at  least 
some  intermediate  scale  contribution  to  the  longer  wavelengths, 
a  frequency  domain  filter  that  is  tapered  to  smoothly  reduce 
the  amplitude  of  all  wavelengths  longer  than  fifty  miles  seems 
to  be  advisable.  The  low  cut  was  placed  at  approximately  the 
eighty  mile  wavelength.  The  high  or  short  wavelength  cut  off. 
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was  placed  at  approximately  fourteen  miles  so  that  the  smooth 
rounding  of  the  frequency  spectrum  would  not  conflict  with 
the  ten  mile  wavelength  defined  by  the  maximum  uniform 
equivalent  well  spacing  of  five  miles.  The  first  spatial 
filter  was  therefore  designed  to  pass  wavelengths  between 
fourteen  and  eighty  miles  (Figure  24)  thus  assuring  that  all 
intermediate  scaled  structures  with  a  width  between  seven  and 
forty  miles  would  appear  in  the  output  and  the  known,  ten  to 
twenty  mile  width  structures,  would  be  reasonably  well  defined. 

The  estimated  one-dimensional  frequency  domain  filter 
was  expanded  to  two-dimensions,  digitized  to  a  convenient 
interval  and  transformed  into  the  distance  domain  (Figure  25) 
using  Program  2  (Appendix).  To  complete  the  filter,  the 
distance  domain  function  was  truncated  at  the  second  zero 
crossing  and  digitized  on  the  same  interval  as  the  maps. 

The  sum  of  the  digital  weights  were  made  equal  to  zero. 

However,  before  being  used  as  a  filter,  the  digital  function 
was  transformed  back  into  the  frequency  domain  to  ensure  that 
the  original  frequency  spectrum  had  been  retained. 

Additional  filters  were  required  to  make  sure  that  a 
satisfactory  filter  had  been  designed.  However,  since  the 
comparison  filters  only  required  the  frequency  spectrum  to 
be  shifted  so  that  they  bracketed  the  original  filter  spectrum 
advantage  was  taken  of  the  reciprocal  nature  of  the  distance 
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Figure  24 

(a)  Is  the  composite  amplitude  spectrum  for  southern  Alberta. 

(b)  Is  a  section  from  a  frequency  domain  spatial  filter  that 
will  retain  wavelengths  between  fourteen  and  eighty  miles. 
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Distance  domain  cross-section  of  the  frequency  domain 
filter  in  Figure  21. 
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and  frequency  scales  to  simply  re-scale  the  new  filters 
from  the  original  distance  domain  function.  One  new  filter 
with  a  slightly  higher  frequency  passband  (wavelengths  bet¬ 
ween  ten  and  sixty  miles)  was  produced  by  scaling  the  dist¬ 
ance  domain  function  over  a  proportionally  smaller  area.  A 
second  new  filter  with  a  lower  passband  (wavelengths  between 
eighteen  and  one  hundred  miles)  resulted  from  considering 
the  filter  area  to  be  proportionally  larger.  A  third  new 
filter  was  also  scaled  to  evaluate  the  contributions  of  the 
small  scale  structures  and  the  shortest  of  the  intermediate 
scale  wavelengths  (six  to  thirty  miles). 

When  the  new  filters  were  digitized,  the  new 
coefficients  were  adjusted  so  that  the  sum  of  the  positive 
values  equalled  the  sum  of  the  positive  values  of  the  original 
filter.  Finally,  the  negative  values  were  adjusted  so  that  the 
sum  of  the  total  coefficients  was  equal  to  zero.  This  proc¬ 
edure  insured  that  each  new  filter  would,  like  the  original 
filter,  have  a  frequency  domain  maximum  amplitude  of  unity 
and  would  delete  the  average  map  elevation. 

A  regional  spatial  filter  (Figure  26)  was  designed 
to  pass  all  wavelengths  longer  than  thirty  miles  as  an  add¬ 
itional  check  on  the  premise  that  the  high  amplitude  longer 
intermediate  wavelengths  are  part  of  the  large  scale  features. 
Intermediate  scale  structures  with  widths  greater  than  twenty- 
five  miles  should  be  noticeable  in  the  output  from  this  filter. 
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Distance  domain  cross-section  of  a  regional  filter  that 
will  retain  all  wavelengths  longer  than  thirty  miles. 
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The  basic  form  of  the  frequency  domain  spatial  filter 
was  used  with  the  composite  amplitude  spectrum  to  determine  a 
suitable  digital  interval  for  the  maps.  This  interval  is  a 
function  of  both  frequency  spectra  and  must  be  worked  out  before 
the  final  digitization  and  testing  of  the  filters. 

Digitization  of  Southern  Alberta 
Structural  Contour  Maps 

The  highest  frequency  that  can  be  accurately  determin¬ 
ed  in  a  structural  contour  map  has  a  wavelength  equal  to  twice 
the  sampling  interval  (see  e.g.  Goldman,  1953*  p.67).  Frequen¬ 
cies  with  shorter  wavelengths  may  be  present  in  the  maps  but 
they  only  appear  as  false  or  aliased  additions  to  the  amplit¬ 
udes  of  lower  frequencies  (see  e.g.  Blackman  and  Tukey,  1958, 
p.  117).  The  composite  amplitude  spectrum  and  the  contouring 
on  the  southern  Alberta  maps  suggest  that  they  will  contain 
frequencies  with  wavelengths  considerably  shorter  than  the 
useful  limit  imposed  by  the  well  spacing.  The  digital  interval 
of  the  maps  is  the  main  control  on  the  effect  that  the  short 
erroneous  wavelengths  have  on  the  filtered  output. 

The  digital  interval  should  be  as  large  as  possible  to 
assure  minimum  processing  effort,  providing  the  error  introduc¬ 
ed  by  the  large  interval  remains  within  tolerable  limits.  A 
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useful  empirical  rule  is  that  the  amplitude  of  any  aliased 
frequency  within  the  retained  frequency  band  width  should 
be  at  least  one  order  of  magnitude  less  than  that  indicated 
by  the  composite  amplitude  spectrum.  In  this  way*  any  error 
caused  by  aliasing  (a  folding  of  the  amplitude  spectrum  about 
a  frequency  with  a  wavelength  of  twice  the  sampling  interval) 
will  be  less  than  that  caused  by  the  original  and  unavoidable 
errors  in  the  mapping  system. 

The  composite  amplitude  spectrum  of  southern  Alberta 
(Figure  27)  suggests  that  if  the  spectrum  is  folded  about  the 
0.25  cycles  per  mile  frequency  (four  mile  wavelength)  aliasing 
will  be  within  the  prescribed  limits.  On  this  basis  the  max¬ 
imum  allowable  digital  interval  for  the  area  was  considered 
to  be  two  miles.  All  maps  and  filters  were  then  digitized  by 
taking  elevations  at  uniformly  spaced  two  mile  intervals. 
Elevations  were  estimated  to  the  nearest  ten  feet  and  were 
obtained  by  interpolation  from  nearby  wells  and  contour  lines. 

The  spatial  filtering  equations  are  in  standard  x  y  z 
co-ordinates  and  the  same  system  was  used  to  designate  all 
digital  positions  in  the  maps.  An  overlay  with  the  digital 
lines  insured  that  each  sample  position  was  duplicated  on  every 
map.  The  sampled  elevations  were  punched  on  I.B.M.  cards  with, 
each  card  containing  ten  elevations  and  the  co-ordinate  loca¬ 
tion  of  the  first  sample  on  the  card  (FORMAT  (4X, 1015* 17X, 13* 
IX, 13)  ).  The  remaining  locations  ran  consecutively  from  west 
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Figure  27 

(a)  Composite  amplitude  spectrum  for  southern  Alberta. 

(b)  is  the  desirable  range  of  frequencies. 

(c)  is  the  amplitude  of  the  aliased  frequencies  for  a 
digital  sample  spacing  of  two  miles. 
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to  east.  The  cards  were  checked  for  errors  then  stacked  on 
magnetic  tape  for  use  In  the  filtering  program. 

Digital  Filters  for  Southern  Alberta 

When  the  digital  interval  for  the  southern  Alberta 
structural  contour  maps  had  been  determined  the  continuous 
filter  functions  were  digitized  to  the  same  spacing.  The 
initial  digital  values  were  corrected  so  their  sum  equalled 
zero  for  the  band  pass  filters  and  unity  for  the  regional 
filter.  The  result  was  a  suite  of  five  spatial  filters 
that  could  be  convolved  with  any  of  the  maps. 

In  its  final  form  the  primary  band  pass  filter  for 
southern  Alberta  was  a  13  x  13  matrix  of  values  (Figure  28) 
that  would  retain  all  wavelengths  between  ten  and  sixty  miles 
was  a  11  x  11  matrix  (Figure  30)  that  also  had  a  satisfactory 
amplitude  spectrum  (Figure  31 )°  The  third  and  lower  frequency 
filter  that  retained  wavelengths  between  eighteen  and  one 
hundred  and  five  miles  was  a  15  x  15  matrix  (Figure  32)  and 
its  amplitude  spectrum  (Figure  33)  has  the  least  distortion 
of  the  three  main  filters.  All  the  present  filters  cause 
only  a  relatively  small  amount  of  distortion  that  should  not 
concern  the  direction  of  digitization  or  the  interpretation. 
The  fourth  band  pass  filter,  that  was  scaled  to  retain  only 
the  relatively  narrow  range  of  high  frequencies  with  wave¬ 
lengths  between  six  and  thirty  miles,  is  a  7  x  7  matrix 
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Figure  28 

One  quadrant  of  a  symmetric  13  x  13  distance  domain  band  pass  filter. 
Digital  interval  is  2  miles.  Wavelengths  between  14  and  80  miles  are 
retained. 
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Bilaterally  symmetric  amplitude  spectrum 
of  the  13  x  13  spatial  filter. 
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Figure  30 

One  quadrant  of  a  symmetric  II  x  II  distance  domain  band 
pass  filter.  Digital  interval  is  2  miles.  Wavelengths  between 
10  and  60  miles  are  retained. 
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Figure  31 

Bi lafera I !y  symmetric  amplitude  spectrum 
of  the  II  x  II  spatial  filter. 
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(Figure  3^-).  This  last  filter  would  not  be  considered 
suitable  for  all  the  maps*  It  was  designed  to  determine  whether 
or  not  the  short  wavelengths  at  the  upper  limit  of  the  inter¬ 
mediate  scale  made  any  significant  contribution  to  the  desired 
structural  trends*  The  last  digital  filter  (Figure  35)  was 
designed  to  pass  all  wavelengths  longer  than  thirty  miles 
and  is  a  21  x  21  matrix.  This  regional  filter  enhances  large 
scale  structures  and  any  intermediate  scale  structures  with  a 
width  that  is  greater  than  twenty  five  miles. 

Processing  Digital  Maps 

Spatially  filtered  maps  were  prepared  from  the 
digital  data  using  Computer  Program  3  (Appendix).  The  initial 
outputs  were  used  to  compare  the  efficiency  of  the  filters  and 
to  check  for  errors  in  the  input  data*  The  computer  program 
convolves  the  filter  with  the  map  and  outputs  the  result  in  a 
symbolically  contoured  form  that  approximates  the  shape  of  the 
original  maps  and  can  be  used  directly  for  a  preliminary  study. 
The  extraneous  edge  area,  equal  to  half  the  filter  width,  was 
automatically  deleted  from  the  map  edges  of  the  output  but 
there  is  still  some  edge  effect  where  the  maps  indent  from  the 
required  rectangular  matrix. 

A  correctly  designed  spatial  filter  only  deletes  un- 

j 

wanted  structures  clearly  retaining  the  desired  ones  in  their 
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Figure  32 

One  quadrant  of  a  symmetric  15  x  15  distance  domain  band  pass  filter. 
Digital  interval  is  2  miles.  Wavelengths  between  18  and  110  miles  are 
retained . 
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Figure  33 

Bilaterally  symmetric  amplitude  spectrum 
of  the  15  x  15  spatial  filter. 
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One  quadrant  of  a  symmetric  7x7  distance  domain  band 
pass  filter.  Digital  interval  is  2  miles.  Wavelengths  between 
6  and  30  miles  are  retained. 
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Figure  35 


One  quadrant  of  a  symmetric  21  x  21  distance  domain  regional  filter.  Digital 
interval  is  2  miles.  Wavelengths  longer  than  30  miles  are  retained. 
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original  position  and  shape.  The  desired  structures  can  be 
located  in  the  original  map  although  they  may  be  obscured 
by  conflicting  structures.  Filtered  outputs  using  several 
spatial  filters  can  be  compared  and  the  best  filter  for  any 
area  is  the  one  that  most  distinctly  reproduces  the  greatest 
number  of  the  desired  structures. 

The  spatial  filters  for  southern  Alberta  were  evaluated 
by  comparing  their  effect  on  the  sub-Cretaceous  unconformity. 
The  filtered  map  (Figure  36)  from  the  13  x  13  band  pass  filter 
proved  to  be  the  most  satisfactory  and  would  be  the  one  used 
for  the  structural  analysis.  The  slightly  higher  pass  11  x  11 
filter  was  nearly  as  efficient  (Figure  37)*  but  the  lower  pass 
15  x  15  filter  gave  only  rather  poor  definition  to  the  inter¬ 
mediate  scale  structures  and  would  not  be  suitable  (Figure  38). 

The  map  produced  from  the  21  x  21  regional  filter  also 
contained  weakly  defined  hints  of  the  intermediate  trends 
(Figure  39) •  The  two  latter  filters  confirmed  the  preliminary 
interpretation  from  the  composite  amplitude  spectrum  that 
there  is  only  a  negligible  contribution  to  the  intermediate 
scale  structures  of  southern  Alberta  from  any  wavelength  longer 
than  fifty  miles.  Intermediate  scale  structures  with  a  minimum 
dimension  greater  than  approximately  twenty  five  miles  should 
not  be  anticipated  in  this  area. 

The  output  from  the  7x7  high  pass  filter  (Figure  40) 
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consisted  of  unrelated,  relatively  random  structures  un¬ 
like  the  well  defined  intermediate  trends  retained  by  the 
13  x  13  filter.  The  extra  filters  confirmed  the  original 
filter  design  with  evidence  that  the  important  intermediate 
scale  structures  of  southern  Alberta  fall  into  definite 
structural  trends  with  a  minimum  dimension  ranging  from  ten 
to  twenty  five  miles. 

A  structural  analysis  requires  consistent  methods 
of  measurement  and  the  best  spatial  filter  (13  x  13)  was 
used  to  produce  the  final  suite  of  maps  for  the  main  study. 

So  that  the  relief  on  the  filtered  structures  would  approx¬ 
imate  that  of  the  unfiltered  counterparts  the  filter  coeffi¬ 
cients  were  increased  by  a  factor  of  2.2  (Figure  4l  and  42). 
This  amplification  factor  was  determined  from  a  comparison  of 
a  variety  of  structures  in  the  counterpart  maps.  Filtered 
and  computer  contoured  maps  were  made  on  the  First  White 
Specks  (Figure  43)#  the  base  of  the  Fish  Scales  (Figure  44), 
the  sub-Cretaceous  unconformity  (Figure  45)  and  the  Devonian 
top  (Figure  46).  The  isopach  subroutine  in  the  mapping 
program  was  used  to  map  the  differences  between  the  outputs 
of  the  filtered  surfaces.  Since  the  best  spatial  filter  for 
the  intermediate  scale  structures  is  a  band  pass  filter  that 
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Figure  41 


One  quadrant  of  a  symmetric  13  x  13  distance  domain  band  pass 
filter.  Digital  interval  is  2  miles.  Wavelengths  between  14  and 
80  miles  are  retained.  Gain  is  2.2. 
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Figure  42 

Bilaterally  symmetric  amplitude  spectrum 
of  the  13  x  13  spatial  filter 


2.2  gain 
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deletes  the  average  elevation*  the  latter  outputs  are  ap- 
ostreptlc  maps  where  positive  anomalies  are  equivalent  to 
isopach  thins .  The  apostreptic  maps  span  the  base  Pish 
Scales  to  the  top  of  the  First  White  Specks  (Figure  47 ), 
the  sub-Cretaceous  unconformity  to  the  base  Fish  Scales 
(Figure  48)  and  the  Devonian  top  to  the  sub-Cretaceous 
unconformity  (Figure  49). 

After  the  computer  outputs  of  the  filtered  maps 
were  examined  and  checked  for  errors*  the  spread  subroutine 
in  the  mapping  program  was  used  to  produce  symbolically 
contoured  maps  on  a  scale  that  approximated  the  scale  of  the 
original  maps  as  closely  as  the  computer  carriage  control 
would  allow.  The  computer  maps  were  mechanically  adjusted 
to  the  exact  dimensions  of  the  original  structural  contour 
maps*  re-contoured  onto  overlays  and  printed  with  a  standard 
topographic  base.  This  produced  the  final  suite  of  filtered* 
structural  contoured  maps  and  apostreptic  maps  that  would  be 
used  for  the  structural  analysis. 

The  final  maps  are  as  follows: 

a)  Filtered  .structure  contours  on  the  top  of  the 
First  White  Specks  (Figure  50) 

b)  Filtered  structure  contours  on  the  base  of  the 
Fish  Scales  (Figure  51 ). 


. 

"1  Sfi  1<>  s:  if}  O  |filC  >  )  \  1 


96 


c)  Filtered  structure  contours  on  the  sub- 
Cretaceous  unconformity  (Figure  52). 

d)  Filtered  structure  contours  on  the  Devonian 
top  (Figure  53). 

e)  Apostreptic  map  between  the  base  of  the  Fish 
Scales  and  the  top  of  the  First  White  Specks 
(Figure  5^-). 

f)  Apostreptic  map  between  the  sub-Cretaceous 
unconformity  and  the  base  of  the  Fish  Scales 
(Figure  55). 

g)  Apostreptic  map  between  the  Devonian  top  and 
the  sub-Cretaceous  unconformity  (Figure  56). 


Errors  in  Digital  Maps 

All  mapping  and  data  handling  procedures  generate 
some  error.  There  is  a  degree  of  error  inherent  in  the 
original  information  that  can  only  be  tolerated  and  allowed 
for  in  the  contouring  interval.  However,  many  of  the  errors 
that  subsequently  appear  in  the  data  are  mechanical  mistakes 
that  can  and  should  be  corrected. 

If  it  can  be  assumed  that  the  original  group  of 
structural  contour  maps  have  been  checked  repeatedly  until 
their  accuracy  is  within  the  limits  of  the  available  well 
control,  they  can  be  used  as  a  standard  to  evaluate  errors 
generated  in  the  later  processing.  These  errors  occur  during 
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the  estimation,  recording  and  punching  of  the  digital  values. 

Spatial  filters  are  small  In  area  and  can  be  rig¬ 
orously  checked  by  hand  calculation.  However,  map  surfaces 
may  be  large  and  their  digital  description  may  require  several 
hundred  thousand  data  values.  There  were  over  150,000  eleva¬ 
tions  for  southern  Alberta.  When  a  large  volume  of  data  is 
Involved  Inevitably  a  considerable  number  of  errors  slip 
past  the  preliminary  checks  and  appear  on  the  magnetic  tape 
used  for  computer  input.  The  vast  majority  of  these  errors 

i 

can  be  found  by  a  careful  examination  of  the  filtered  out¬ 
put  and  corrected  before  the  final  maps  are  produced  for 
use  in  the  structural  analysis. 

Corrections  to  the  magnetic  tape  are  made  with  Computer 
Program  4  (Appendix).  If  there  are  any  illegal  characters  or 
cards  the  convolution  program  simply  stops  at  the  point  of 
interrupt.  The  data  must  then  be  corrected  before  the  map 
can  be  completed.  Legal  but  wrong  values  cause  anamalous 
features  in  the  filtered  output.  Each  digital  value  is  re¬ 
duced  by  the  convolution  process  to  a  finite  band  of  wave¬ 
lengths  whose  sum  looks  exactly  like  the  digital  filter,  so 
that  an  individual  value  error  produces  a  filter  shaped  anomaly. 
A  line  or  card  of  wrong  values  comes  out  as  an  elongate  filter 


shaped  feature  parallel  with  the  direction  of  digitization. 


* 
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Systematic  errors  are  more  difficult  to  find. 

However,  spatial  filtering  only  deletes  structures  and  does 
not  add  new  ones,  so  anomalies  in  the  output  may  be  located 
in  the  original  maps.  Unlocatable  anomalies  are  the  result 
of  errors  and  should  be  corrected  or  deleted  from  the  inter¬ 
pretation. 

Significant  data  errors  should  be  discovered  and 
deleted  until  any  remaining  are  so  small  that  their  effect 
is  within  the  limits  of  accuracy  of  the  original  maps.  The 
correction  process  is  tedious  but  necessary.  Fortunately, 
data  gathering  systems  are  becoming  more  sophisticated  so 
that  most  of  the  human  error  will  be  elimiated  through  the 
use  of  mechanical  digitizers  and  plotters. 

Convolution  of  a  spatial  filter  with  a  map  reduces 
the  effect  of  random  errors  by  more  than  two  thirds  of  their 
value.  Systematic  errors  may  be  passed  unchanged  into  the 
filtered  maps  but  they  are  usually  reduced.  Errors  are  never 
increased.  Consequently,  the  level  of  significance  of  an 
anomaly  in  a  spatially  filtered  map  is  at  least  the  same  as 
in  the  original  maps.  The  structures  in  the  filtered  maps 
of  southern  Alberta  should  be  reliable  at  the  fity  foot 
contour  level  and  they  are  definitely  reliable  at  the  one 
hundred  foot  contour  level  used  in  the  final  maps. 
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CHAPTER  4  -  GENERAL  STRUCTURES 
IN  SOUTHERN  ALBERTA 

The  original  structural  contour  maps  exhibit  a  variety 
of  structures,  ranging  from  the  large  regional  features  such 
as  the  Sweet  Grass  Arch  in  the  south,  to  the  high  relief 
small  scale  structures  in  the  Cypress  Hills  area„  Many  of 
these  and  other  known  and  inferred  structures  in  southern  Alb¬ 
erta  do  not  appear  in  the  filtered  maps.  They  either  do  not 
fall  within  the  intermediate  scale  size  range,  do  not  affect 
the  available  structural  surfaces,  or  are  too  subtle  for 
delineation  by  the  present  mapping  methods  (e.g.  some  of  the 
trends  in  Figure  57). 

The  structural  contours  on  the  top  of  the  Elk  Point 
(Figure  7)  are  based  on  widely  spaced  well  control  and  the 
map  shows  only  the  large  scale  structures.  These  include  the 
strong  westerly  regional  gradient,  the  Sweet  Grass  Arch  and  the 
North  Battleford  Arch  (Burwash,  et.  al.,  1964).  There  is  also 
a  hint  of  a  E-W  trending  low  through  the  Vulvan- Brooks  area 
corresponding  to  the  general  location  of  a  proposed  Pre- 
cambrian  rift  valley  (Kanasewich,  1967).  Known  Middle  Devon¬ 
ian  structures  that  are  likely  of  intermediate  scale,  such  as 
the  Meadow  Lake  Escarpment  and  reefal  carbonate  banks,  are  not 
discernible  in  the  map. 

The  Devonian  top  (Figure  6)  has  more  well  control  and 
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PREPARED  BY :  OIL  AND  GAS  CONSERVATION  BOARD 

CALGARY,  ALBERTA  -  APRil,  1963 


Figure  57 

Oil  and  gas  fields  of  Southern  Alberta 
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can  be  filtered  to  enhance  the  Intermediate  scale  structures. 
The  large  scale  features  are  similar  to  those  on  the  Elk  Point 
surface  and  are  removed  along  with  the  small  scale  ones  by 
the  filter.  However,  there  are  known  Upper  Devonian  structures 
(namely  the  many  Upper  Devonian  reef  trends)  that  may  be  of 

i 

intermediate  scale  and  do  not  seem  to  show  in  either  the 
original  or  the  filtered  map.  Reefs  are  structures  and  it  has 
been  suggested  that  they. may  have  tectonic  control  (Andrichuk, 

196l).  There  is  not  enough  well  information  for  a  satisfactory 

* 

map  on  the  platforms  that  form  the  reef  base  but  the  oil  prod¬ 
ucing  upper  parts  of  the  bioherms  often  have  linear  alignments 
that  would  be  expected  to  follow  the  controlling  tectonic 
trends.  There  is  a  good  coincidence  between  the  Beaverhill 
Lake  reefs  and  the  structural  trends  in  the  filtered  maps 
(Belyea,  et  al.,-1964).  However,  there  is  only  occasional 
co-ordination  between  the  Woodbend  reefs  and  the  filtered 
trends  (Figure  57).  The  original  structural  contour  map  on 
the  Devonian  top  does  show  compaction  structures  over  the 
Leduc-Rimbey  reef  trend  but  they  are  small  scale  and  are 

deleted  by  the  filter.  Andrichuck  (1961)  proposed  a  tect- 

*•  \ 

onic  control  for  many  of  the  reefs  but  the  present  study  does 
not  have  sufficient  information  for  a  valid  conclusion. 

There  is  better  coincidence  between  the  oil  and 
gas  confining  trends  and  the  map  on  the  sub-Cretaceous  un- 
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conformity.  However,  it  cannot  all  be  attributed  to  inter¬ 
mediate  scale  structural  control.  Some  fields,  such  as  those 
in  the  Harmatton-Westward  Ho,  Mississippian  subcrop  area, 
are  associated  with  the  large  scale  westerly  regional  grad¬ 
ient,  The  oil  and  gas  confining  erosional  ridges  or  cuestas 
and  their  overlying  compaction  structures  are  usually  small 
scale  but  do  parallel  the  NW-SE  intermediate  scale  trends. 
The  Joffre  field  does  not  appear  to  coincide  with  structures 
in  any  of  the  maps  and  has  marked  divergence  from  any  of . 
the  known  trends.  In  contrast,  the  Westlock-Fairydell  gas 
trend  aligns  exactly  with  a  NW-SE  linear  trend  and  there  is 
little  doubt  of  the  close  relationship  between  the  fields  and 
the  structures.  The  Cretaceous  structural  contour  map  also 
shows  small  scale  relief  over  both  the  Leduc-Rimbey  and  the 
Penn-Big  Valley-Stettler  reef  trends  that  is  not  seen  in  the 
filtered  map. 

The  structural  contour  maps  on  the  Base  Fish  Scales 
and  the  First  White  Specks  show  small  scale  structural  relief 
over  the  prominent  Woodbend  and  Winterburn  reef  trends  and 
there  are  also  small  scale  structures  in  the  Cypress  Hills 
and  Sweet  Grass  Arch  areas.  The  most  prominent  intermediate 
scale  structures  are  in  the  SW  corner  of  Alberta  and  where 
the  First  White  Specks  outcrops  in  the  NW  corner.  Both  maps 
contain  the  main  large  scale  structures  and  numerous  small 
scale  ones  but  relatively  few  prominent  intermediate  scale 
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structures . 

The  filtered  maps  retain  only  those  structures  that 
are  defined  by  the  available  Information  and  are  of  a  scale 
passed  by  the  filter.  All  other  structures  are  deleted.  The 
present  set  of  filtered  maps  actually  show  only  a  few  of  the 
known  and  surmised  structures  of  the  interior  plains  of  south¬ 
ern  Alberta.  However,  the  structures  in  the  filtered  maps 
are  valid  and  can  be  described  and  used  as  the  basis  for  a 
relatively  comprehensive  structural  analysis. 


Ill 


CHAPTER  5  -  STRUCTURAL  ANALYSIS 
Introduction 

A  structural  analysis  involves  two  philosophically 
distinct  procedures  (Turner  and  Weiss,  1963*  p.  7).  The  first 
concerns  the  physical  description  of  the  geometry  of  a  rock 
body  and  the  second  attempts  to  reconstruct  the  structural 
evolution  of  the  body.  A  geometric  analysis  of  a  structural 
contour  map  or  a  set  of  maps,  using  spatial  filtering,  can  be 
separated  into  rigorous  and  interpretative  parts.  The  rigorous 
part  can  be  defined  mathematically  within  the  confines  of  the 
available  information  whereas  the  interpretative  part  includes 
geological  induction. 

The  line  of  demarcation  between  the  two  parts  of  the 
geometric  analysis  depends  on  the  nature  of  the  available 
information  on  the  surface  or  surfaces.  If  the  surface  is  a 
stratigraphic  horizon  in  a  finite  map  area,  the  distinction 
between  the  rigorous  and  the  interpretative  parts  is  a  function 
of  the  sample  spacing.  In  the  case  of  the  structural  contour 
maps  of  southern  Alberta,  it  is  a  function  of  the  well  spacing. 

The  greatest  amount  of  rigorous  information  that  can 
be  determined  from  a  spatially  filtered  structural  contour 
map  is  directly  related  to  the  average  uniform  distance  bet¬ 
ween  wells.  The  information  may  be  quite  limited.  Gradients 


in  the  filtered  maps  should  never  exceed  the  elevation  change 


112 


between  sample  locations.,  Abrupt  features  such  as  faults 
must  be  interpretative  unless  there  is  almost  continuous 
sample  coverage „  The  sample  spacing  in  southern  Alberta 
is  only  sufficient  for  the  intermediate  scale  structures 
to  appear  as  a  series  of  smooth  upwarps  and  downwarps. 

The  filtered  structural  contour  maps  of  southern 
Alberta  illustrate  the  intermediate  scale  structures  within 

V.f 

the  50  foot  possible  error  of  the  original  maps.  The  100 
foot  contour  level  of  significance  means  the  features  in  the 
filtered  maps  are  valid0  Within  the  designated  margin  of 
error,  they  are  rigorous  in  their  width,  length,  separation 
and  trend 0  They  are  not  rigorous  in  their  slopes,  skewness 
or  absolute  shape „ 

A  description  of  the  genetic  evolution  of  the  struc¬ 
tures  contained  in  a  rock  body  also  consists  of  two  parts  1  a 
kinematic  analysis  that  attempts  to  reconstruct  the  movements 
that  affected  the  rock  body  and  a  dynamic  analysis  that  deter¬ 
mines  the  stress  patterns  and  forces  causing  the  movements. 
This  second  procedural  part  of  the  structural  analysis  is 
inherently  interpretative. 

Rigorous  Geometric  Analysis  of  the  Filtered  Maps 

The  filtered  structural  contour  maps  (Figures  50  to  53 
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inclusive)  graphically  display  all  significant  intermediate 
scale  structural  features  in  two  dimensions,,  The  apostreptic 
maps  (Figures  5^  to  56)  picture  the  changes  in  the  interval 
between  successive  horizons  and  form  a  bridge  relating  the 
two-dimensional  and  three-dimensional  descriptions. 

The  Interior  Plains  of  Southern  Alberta  contain,  with 
minor  variations,  two  main  intermediate  scale  structural  trends. 
The  individual  structures  are  linear  and  trend  either  NE-SW  or 
NW-SE.  The  main  trend  directions  are  discernible  on  all  areas 
of  the  filtered  maps  but  tend  to  be  more  uniform  in  the  north 
than  in  the  south.  These  linear  orthogonal  structural  trends 
dominate  the  filtered  structural  maps  and  determine  the  tex¬ 
ture  or  fabric  of  the  surfaces. 

Although  the  trend  of  the  linear  structures  is  relativ¬ 
ely  consistent,  there  is  a  marked  variation  in  relief  from  area 
to  area.  Within  each  area  the  structural  amplitudes  are  relat¬ 
ively  consistent  permitting  the  maps  to  be  divided  into  domains 
on  a  basis  of  uniform  relief.  The  upper  surfaces  have  less 
relief  than  the  lower  permitting  the  filtered  maps  to  be 
grouped  into  two  domains,  one  below  (l)  and  one  above  (2) 
the  sub-Cretaceous  unconformity.  Each  domain  can  be  divided 
into  three  subdivisions  (a,b,c)  within  which  the  structural 
amplitude  is  relatively  uniform  (Figure  58). 


■ 
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S  ubdivisions  of  structural  domains  in  Alberta 
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Domain  (l)  made  up  of  surfaces  formed  prior  to 
Cretaceous  deposition  is  represented  by  the  filtered  maps 
on  the  Devonian  top,  the  sub-Cretaceous  unconformity  and  the 
intervening  apostreptic  map„  It  is  divisable  into  three  sub¬ 
divisions  (la,  lb,  lc).  The  positions  of  the  boundaries  of 
the  domain  subdivisions  are  subjective  but  the  areas  are 
distinct. 

Domain  subdivision  la,  the  SW  corner  of  Alberta, 
contains  high  amplitude  structures  with  relief  up  to  500 
feet.  The  NE-SW  structural  trend  is  by  far  the  most  prominent 
on  the  Devonian  but  both  main  trends  are  apparent.  However, 
the  unconformity  exhibits  a  smaller  scale  approximately  E-W 
trend  that  does  not  appear  on  any  of  the  other  surfaces.  The 
apostreptic  map  shows  there  is  a  marked  difference  in  the 
structures  on  the  two  surfaces. 

The  structures  in  domain  subdivision  lb,  the  SE  part 
of  Alberta,  are  of  relatively  low  amplitude  and  seldom  attain 
a  relief  of  more  than  200  feet.  The  NE-SW  and  the  NW-SE 
trends  are  dominate  but  there  are  a  few  structures  with  an 
almost  E-W  trend. 

Domain  subdivision  lc,  in  central  Alberta,  contains 
pronounced  linear  structural  trends  up  to  90  miles  long. 
Average  relief  of  structures  on  the  unconformity  is  less 
than  400  feet  but  may  locally  range  up  to  500  feet.  Relief 
on  the  western  or  depositional  portion  of  the  Devonian  surface 
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averages  approximately  half  of  that  on  the  unconformity  but 
there  are  structures  with  relatively  high  relief  in  the  area 
between  Edmonton  and  Red  Deer.  The  apostreptic  map  indicates 
that  the  structures  on  the  Devonian  coincide  in  all  except 
relief  with  those  on  the  sub-Cretaceous  unconformity.  The 
structures  on  both  surfaces  predominately  trend  NE-SW. 

However,  a  usually  subordinate  NW-SE  pattern  contains  one 
strong  linear  structure  that  completely  disrupts  the  contin¬ 
uity  of  the  other  trend.  This  latter  structure  can  be  traced 
continuously  for  over  100  miles  and  not  only  causes  a  complete 
break  in  the  NE-SW  trend  but  offsets  it  so  that  downwarps 
appear  to  be  in  alignment  with  upwarps.  The  geological  sig¬ 
nificance  is  interpretative  and  is  covered  in  the  next  part 

of  the  geometric  analysis. 

'  / 

The  upper  domain  (2),  made  up  of  surfaces  formed 
after  the  beginning  of  Cretaceous  deposition,  is  also  represen¬ 
ted  by  the  filtered  structural  contour  map  on  the  sub-Cretaceous 
unconformity  as  well  as  the  maps  on  the  Base  Pish  Scales,  the 
First  White  Specks  and  the  intervening  apostreptic  maps.  It 
is  divided  into  three  subdivisions  similar  to  those  of  domain 
(l)  (Figure  58). 

\ 

Relief  in  domain  subdivision  2a  is  relatively  high, 
often  reaching  more  than  500  feet.  Structural  trends  are 
dominately  NW-SE.  The  NE-SW  trend  of  the  underlying  sub- 
domain  is  no  longer  significant  and  the  approximately  East- 
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West  trend  that  Is  prominently  displayed  on  the  unconformity 
surface  does  not  appear  on  the  higher  surfacesD  The  apostrep- 
tlc  maps  show  that  the  structural  trends  above  the  sub-Cretace- 
ous  on  the  base  Fish  Scales  and  the  First  White  Specks  coinc¬ 
ide  although  the  former  map  has  the  higher  relief. 

Structural  relief  is  relatively  insignificant  through¬ 
out  domain  subdivision  2b.  Oriented  structural  trends  appear 
to  be  confined  to  the  most  southerly  part  of  the  First  White 
Specks  filtered  map. 

Domain  subdivision  2c  contains  only  poorly  defined 
NE-SW  trending  structures  with  occasional  hints  of  the  orth¬ 
ogonal  pattern.  The  major  NW-SE  trending  linear  structure 
in  the  central  part  of  the  20  miles  NE  of  Edmonton  in  domain 
subdivision  lc,  does  not  appear  on  the  filtered  maps  of  the 
upper  depositional  surfaces  and  its  former  relief  is  evidenc¬ 
ed  by  the  apostreptic  map  of  the  interval  immediately  over  the 
unconformity.  Structures  on  the  two  Cretaceous  filtered 
surfaces  have  about  the  same  spacing  and  relief  (200  feet) 
except  in  the  NE  corner  where  the  First  White  Specks  crops 
out  at  the  surface.  The  trend  and  contour  relief  is  some¬ 
what  similar  to  that  of  the  underlying  depositional  part  of 
the  Devonian  surface  but  the  deeper  structures  are  larger. 


more  numerous  and  have  locally  higher  relief. 
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The  trend,  length,  width,  and  average  relief  of  the 
structures  in  the  filtered  maps  are  significant  and  part  of 
the  rigorous  analysis.,  The  following  interpretative  part  of 
the  geometric  analysis,  that  provides  meaning  to  the  struct¬ 
ural  patterns,  is  not  rigorous,  but  is  based  on  proven  trends 
and  can  be  confidently  outlined 0 

Interpretative  Geometric  Analysis 
of  the  Filtered  Maps 

An  interpretative  three-dimensional  descriptive 
analysis  requires  extrapolation  beyond  the  mathematically 
rigorous  computer  output  but  should  remain  within  the  limits 
imposed  by  valid  geological  deduction  procedures.  If  the  math¬ 
ematically  valid  first  part  of  the  geometric  analysis  is  used 
as  a  base  for  a  systematically  inductive  second  part  then 
the  composite  geometric  analysis  will  have  a  high  over  all 
level  of  significance. 

The  Interior  Plains  of  Southern  Alberta  are  underlain 
by  a  basement  of  Precambrian  rocks.  Their  radiometric  ages 
of  1600  to  1900  million  years  places  them  in  an  extension 
of  the  Churchill  province  of  the  Canadian  Shield  (Burwash, 
et  al,  1964,  p.  17)0  The  structural  trends  in  this  province 


which  result  from  the  preferred  orientation  of  faults,  folds. 
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gneissosity  and  magnetic  or  electromagnetic  anomalies 
(Wilson  and  Brisbin,  1962)  are  predominantly  either  NE-SW 
or  NW-SE  (Byers ,  1962;  Burwash,  1965) 

Magnetic  maps  that  permit  the  basement  trends  to  be 
followed  continuously  from  the  exposed  Shield  are  available 
for  the  north-eastern  part  of  the  area  (Agarwal,  I960,  1962, 

1965  a,b,c)0  This  type  of  map  is  ideal  for  establishing  the 
trend  of  basement  structure  for  it  is  essentially  a  measure 
of  the  magnetite  content  of  the  igneous  and  metamorphic 
rocks  with  only  a  negligible  contribution  from  overlying 
sediments. 

The  basement  magnetic  trends  in  the  northern  part  of 
the  area  are  composed  of  individual  intermediate  scale  anomalies 
that  parallel  the  main  linear  structures  in  the  filtered  maps. 
These  magnetic  anomalies  reflect  either  basement  relief  or 
composition  but  in  either  event  the  features  are  remarkably 
coincidental  with  the  structures  of  the  overlying  sedimentary 
surfaces.  Burwash  (1965)  and  Kanasewich  (1967)  describe 
similar  basement  patterns  in  the  southern  part  of  the  area. 

The  more  southerly  basement  features  generally  conform  to  the 
orthogonal  pattern  but  individual  features,  like  their  counter¬ 
part  structures  in  the  filtered  maps,  tend  to  be  more  isotropic 
than  in  the  northerly  areas.  The  boundary  between  subdomains 
a  and  b  is  almost  exactly  coincident  with  the  division  between 
Precambrian  areas  of  dominantly  metamorphic  and  areas  of 
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dominantly  plutonic  rocks  (Burwash  et  al,  1964,  p0  18). 

This  similarity  between  the  divisions  of  the  sedimentary 
structural  subdomains  with  those  of  the  basement  add  weight 
to  the  evidence  that  the  basement  features  are  related  to  those 
in  the  overlying  sediments. 

There  is  indeed  a  very  high  degree  of  correlation 
between  the  trends  of  the  intermediate  scale  structures  in 
the  filtered  maps  and  those  in  the  Precambrian  basement. 
Therefore,  the  structural  trends  in  the  sediments,  even  though 
the  evidence  is  circumstantial,  may  reasonably  be  assumed  to 
have  vertical  continuity  with  those  in  the  older  cratonic 
rocks.  There  is  also  evidence  that  the  same  structural  patterns 
may  appear  in  the  present  surface  rocks.  Erosionally  enhanced 
intermediate  scale  structures  are  readily  apparent  on  the  out¬ 
crop  of  the  First-  White  Specks.  Blanchet  (1957)  found,  in 
aerial  photographs,  NE-SW  and  NW-SE  trending  small  scale 
fracture  patterns  similar  to  ones  that  have  been  shown  to 
reflect  underlying  structure  in  other  areas  (see  e.g.  Lattman 
and  Segovia,  1961 j  Lattman  and  Matzke,  1961).  Barton  and 
Broscoe  (i960)  pointed  out  that  many  linear  portions  of  the 
drainage  channels  in  southern  Alberta  reflect  underlying 
structure. 

Other  surface  indications  include  the  NW-SE  trending 
Monarch  fault  zone  (Russell,  1932)  that  is  coincident  with  a 
high  relief  structure  on  the  filtered  First  White  Specks  map. 
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A  fault  In  the  Drumheller  area  strikes  NE-SW  (Haites,  i960) 
and  possible  faults  in  the  Eagle  Butte  area  (Russell  and  Landes, 
19^0j  Lindoe,  1965)  overlie  structures  apparent  on  the  filter¬ 
ed  Cretaceous  maps.  Surface  folds  In  the  southernmost  part  of 
the  area  have  their  axial  planes  aligned  with  the  two  main 
orthogonal  trends  (Russell  and  Landes,  19^0)  but  do  not  appear 
in  the  filtered  maps  since  they  are  either  small-scale  or  in 
the  reject  portion  at  the  edges  of  the  filtered  maps. 

Structural  patterns  that  seem  to  have  vertical  cont¬ 
inuity  from  the  PreCambrian  basement  to  the  present  surface 
topography  are  reflected  in  all  the  intermediate  scale  filtered 
maps.  The  individual  structures  are  valid  according  to  the 
principles  of  filter  theory  but  there  is  insufficient  factual 
information  for  a  detailed  geometric  description.  They  cannot, 
on  the  basis  of  the  filtered  maps,  be  defined  as  either  folds 
or  faults  but  simply  as  structural  highs  and  lows.  However, 
the  original  structural  contour  maps  show  that  many  of  the 
NE-SW  trending  structures  have  relatively  steep  flanks  and 
flattened  crests.  This  tabular  appearance  and  vertical  cont¬ 
inuity  suggest  that  at  least  the  NE-SW  trends  are  composed  of 
structures  that  are  more  likely  to  be  intermediate  scale 
blocks  than  folds. 

Structural  relief  can  only  be  estimated  on  the  two 
upper  depositional  surfaces  and  on  the  western  part  of  the 
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Devonian  surface  where  it  is  conformably  overlain  by  Mississ- 
ippian  strata.  The  intermediate  scale  features  on  the  sub- 
Cretaceous  unconformity  owe  much  of  their  relief  to  pre-Cret¬ 
aceous  erosion.  Therefore,  any  measurements  of  the  amplitudes 
of  movements  that  preceded  Cretaceous  deposition  must  be  con¬ 
fined  to  the  uneroded  parts  of  the  Devonian  surface.  However, 
the  morphology  of  the  sub-Cretaceous  unconformity  seems  to 
reflect  the  underlying  structure  and  so  is  useful  for  an  inter 
pretation  of  structural  continuity  and  sequence. 

There  is  conformity  between  the  sub-Cretaceous  erosion 
al  surface  and  the  underlying  structure  and  individual  struct¬ 
ures  on  the  Devonian  are  continuous  from  the  area  of  Mississ- 
ippian  cover  across  the  unconformity  subcrop.  The  apostreptic 
map  shows  that  erosion  on  the  unconformity  has  effectively 
doubled  the  original  structural  relief.  This  conformity  bet¬ 
ween  the  erosional  and  the  tectonic  structures  suggests  the 
increased  relief  resulted  from  erosional  deepening  of  pre¬ 
existing  low  areas.  Since  this  is  more  likely  to  occur  in 
faulted  than  in  folded  areas,  the  erosional  patterns  tend  to 
support  a  block  movement  hypothesis. 

Structures  on  the  Devonian  surface  either  exceed  in 
relief  or  differ  in  trend  from  those  on  the  base  Fish  Scales 
while  conforming  in  all  except  erosional  relief  to  those  in 


the  overlying  Mississippian  subcrop.  This  suggests  that  some 
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structural  movements  occurred  during  the  interval  following 
the  beginning  of  Mississippian  deposition  and  before  Cretaceous 
deposition*  The  highest  amplitude  structures  on  the  Devonian 
surface  are  confined  to  domain  subdivision  la  where  they  have 
a  pronounced  NE-SW  trend  and  locally  over  500  feet  of  relief. 

In  this  area  Cretaceous  rocks  immediately  overlie  Jurassic 
and  the  morphology  of  the  unconformity  is  apparently  unrelated 
to  the  structural  patterns  on  the  Devonian  surface.  The  struc¬ 
tures  on  the  unconformity  are  closer  spaced,  they  trend  more 
E-W  and  seem  to  coalesce  towards  the  east.  This  pattern  is 
present  only  on  the  unconformity  surface  and  appears  to  represent 
a  superimposed  drainage  system.  There  is  also  a  well  developed 
NE-SW  grain  to  the  structural  trends  in  domain  subdivision  lc 
with  the  highest  amplitude  features  concentrated  in  a  belt 
between  Edmonton  and  Red  Deer.  This  area  of  higher  amplitude 
features  coincides  with  the  location  of  the  early  Devonian, 

Meadow  Lake  escarpment  (Grayson  et  al.,  1964).  Similar  trends 
are  apparent  throughout  the  remainder  of  the  area  but  with  a 
reduced  amplitude.  Differential  erosion  on  the  unconformity 
has  uniformly  accentuated  the  structural  trends  without  regard 
to  the  original  amplitudes. 

Domain  subdivision  lc  also  exhibits  another  orthogon¬ 
ally  trending  series  of  structures  which  except  for  one  major 

'  ■ , 

linear  structure  are  difficult  to  distinguish  against  the 
background  of  prominent  NE-SW  trending  structures. 
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The  single  major  NW-SE  trending  structural  lineation  complete¬ 
ly  disrupts  the  opposing  trend  and  causes  a  minimum  misalign- 

i  -  f  . 

ment  of  10  to  15  miles.  Erosional  relief  is  uniform  on  either 
side  of  the  structure  so  there  is  no  evidence  of  vertical  off¬ 
set.  The  feather  edge  of  the  Mississippian  swings  abruptly 
and  for  almost  50  miles  follows  the  western  flank  of  the  line¬ 
ar  zone  whose  susceptibility  to  erosion  has  caused  it  to  be  one 
of  the  main  drainage  channels  on  the  sub-Cretaceous  unconform¬ 
ity  (Williams,  1963) .  There  is  an  apparent  high  feature  on 
the  Devonian  surface  resulting  from  the  change  in  slope  between 
the  depositional  and  the  erosional  surface.  However,  the  anom¬ 
aly  has  only  a  very  low  amplitude  and  is  located  to  the  west 
of  the  important  NW-SE  linear  so  that  there  is  no  effect 
on  the  interpretation. 

Deeply  incised  erosion  along  the  structural  linear 
has  prevented  delineation  of  the  true  dimensions  or  the  line 
of  rupture  but  there  can  be  little  doubt  that  the  zone  repre¬ 
sents  a  major  fault  with  a  minimum  lateral  displacement  of  10 
miles.  The  difficulty  of  correlating  filtered  structures 
prevents  any  measurement  of  displacement  or  sense  of  displace¬ 
ment.  However,  the  NW-SE  trending  linear  structure  and  the 
offset  opposing  trends  are  real  and  the  designation  of  a  fault 
with  a  strike  slip  of  at  least  the  minimum  amount  required  to 
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realign  the  offset  structures  would  seem  to  be  a  valid  geolog¬ 
ical  description,,  Since  the  fault  zone  has  undergone  erosion, 
movement  must  have  taken  place  prior  to  the  beginning  of 
Cretaceous  deposition.  Even  the  erosional  channels  along 
the  fault  were  completely  infilled  during  the  lower  Cretaceous 
because  the  trend  does  not  appear  even  as  a  compaction  feature 
in  the  Base  Fish  Scales  map. 

The  structures  on  both  the  erosional  and  depositional 
surfaces  in  domain  subdivision  lb  are  small  and  generally 
insignificant.  The  area  must  have  been  rather  featureless 
with  only  gentle  structural  movements. 

The  intermediate  scale  structural  trends  in  the 
Cretaceous  follow  the  same  general  trends  that  are  apparent 
on  the  Devonian  and  Precambrian  surfaces.  However,  movements 
resulting  in  a  NW-SE  trend  seem  to  have  been  almost  entirely 
restricted  to  the  western  part  of  the  area. 

The  dominant  NE-SW  sub-Cretaceous  trends  of  domain 
subdivision  la  become  increasingly  subordinate  throughout 
the  Cretaceous  until  only  NW-SE  trending  structures  with  high 
relief  are  apparent  in  the  maps  on  the  First  White  Specks. 

The  Base  Fish  Scales  is  intermediate  in  the  change  of  emphasis 
with  a  NE-SW  trending  structure  discernible  in  a  dominantly 


NW-SE  structural  grain.  Surface  structures  such  as  the  Monarch 
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fault  zone  (Russell,  1932)  are  parallel  to  those  In  the 

-  r 

First  White  Specks0 

Domain  subdivision  2b  continued  relatively  stable 
with  the  only  significant  Intermediate  scale  structural 
activity  confined  to  the  most  southerly  part.  The  structures 
are  most  prominent  on  the  First  White  Specks  and  In  such 
surface  areas  as  Deadhorse  Coulee  or  Taber  (Russell  and  Lanes, 
1940, p„  107,  118). 

The  Cretaceous  maps  show  that  there  have  been  structu¬ 
ral  movements  that  resulted  In  up  to  200  feet  of  relief  after 
Lower  Cretaceous  deposition,,  Diminished  relief  on  the  First 
White  Specks  suggests  the  activity  was  not  confined  to  one 
period  but  was  continued  over  much  of  the  Upper  Cretaceous. 

The  amplitude  of  the  movements  was  relatively  minor  for  the 
main  trend  directions  require  the  50  foot  contours  of  the 
computer  maps  (Figures  35  and  36)  for  confirmation.  The  50 
foot  contours  cannot  be  considered  rigorous  but  they  can  be 
used  to  interpret  the  trends  of  continuous  linear  structures 
with  a  high  degree  of  confidence. 

The  interpreted  Upper  Cretaceous  structural  trends 
are  predominantly  NE-SW  but  there  are,  particularly  in  the 
western  part  of  the  area,  subsidiary  NW-SE  trending  structures. 
There  appears  to  be  some  reflection  of  the  trends  on  the  surface. 
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This  surface  structural  amplitude  Is  difficult  to  estimate 
but  Is  certainly  much  less  than  the  amount  evident  In  the 
First  White  Specks  map. 

The  Intermediate  scale  structures  are  primarily  inter¬ 
preted  as  tabular  blocks  with  essentially  vertical  boundaries 
that  appear  to  extend  into  the  Precambrian  basement 0  The 
majority  of  the  structures  appear  to  be  defined  by  differential 
vertical  relief  but  there  is  at  least  one  instance  where  there 

is  a  pronounced  lateral  offset. 

*> 

Kinematic  and  Dynamic  Analysis 

The  geometric  analysis  has  established  that  there  is 
a  strong  likelihood  of  vertical  continuity  between  the  inter¬ 
mediate  scale  structures  in  the  sediments  and  the  apparently 
similar  structures  in  the  underlying  Precambrian  basement. 

The  movements  in  the  vertical  plane  have  been  relatively  gentle 
with  most  displacements  totalling  less  than  200  feet  and  only 
locally  reaching  as  much  as  500  feet.  The  largest  movement 
was  the  10  to  15  mile  minimum  strike  slip  along  the  NW-SE 
trending  wrench  fault  in  the  area  20  miles  northeast  of 
Edmonton. 

The  small  vertical  movements  and  the  limited  resolving 
power  of  the  information  in  the  well  control  permit  only  a 
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very  rough  approximation  of  the  tectonic  events  that  caused 
the  structures,,  Since  the  structures  have  vertical  coincidence, 
the  planes  of  movement  must  have  been  at  a  very  high  angle  and 
would  therefore _have  originated  in  conjunction  with  the  under¬ 
lying  basement  structures .  The  NW-SE  trending  wrench  fault 
in  the  area  north  of  Edmonton  has  a  minimum  of  10  miles  strike 
slip  and  likely  is  also  of  basement  origin.  The  present  data 
rigorously  shows  the  structural  offset  but  is  insufficient 
information  for  calculation  of  the  real  displacement  or  even 
the  sense  of  displacement.  However,  a  possible  offset  in  the 
continuity  of  the  Leduc-Rimbey  and  the  Morinville  reef  trends 
(Belyea,  i960)  suggest  the  movement  may  have  been  sinistral. 

Tectonic  movements  that  caused  the  NE-SW  trending 
structures  exhibited  on  the  Devonian  surface  were  of  relative¬ 
ly  minor  amplitude*  They  were  essentially  vertical  basement 
adjustments  that  produced  tabular  structures  with  a  maximum 
of  500  feet  of  local  structural  relief.  The  early  essentially 
linear  structures  in  the  northern  part  of  the  area  were  then 
offset  by  wrench  faulting.  Movement  on  the  fault  subsided 
before  the  beginning  of  Cretaceous  deposition. 

Following  the  period  of  faulting,  movements  on  both 
the  NE-SW  and  the  NW-SE  trends  were  entirely  confined  to  small 
amplitude  vertical  adjustments.  Also,  concentrated  along  the 
western  margins  of  the  uppermost  surfaces,  there  are  also  mipor 
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folds  that  appear  to  be  a  surfical  extension  of  the  Rocky 
Mountain  disturbed  belt.  The  latter  structures  appear  as 
folds  in  the  original  structural  countour  maps  and  are 
distinct  from  the  basement  controlled  tabular  features. 

The  dynamic  relationships  are  entirely  speculative. 
However,  the  structural  patterns  are  similar  to  those  in  the 
basement  that  were  determined  during  the  Precambrian  orogenic 
periods  long  before  the  present  sediments  were  deposited.  The 
structural  movements  that  produced  the  present  large  scale 
basement  configuration  (Burwash,  1964,  p0  18)  undoubtedly 
set  up  local  stress  variations  that  would  account  for  the 
vertical  adjustments  along  the  old  intermediate  scale  zones 
of  weakness.  In  addition,  the  main  wrench  fault  would  suggest 
a  system  of  horizontal  shear  stresses  similar  in  pattern,  but 
not  necessarily  in  direction,  to  those  proposed  by  Byers 
(1962)  for  the  western  part  of  the  Canadian  Shield.  These 
shear  forces  must  have  been  active  as  recently  as  the  regress¬ 
ive  period  when  the  sub-Cretaceous  unconformity  was  formed. 

Large  Scale  Structures 

The  prominent  large  scale  structural  elements  are 
illustrated  on  the  structural  contour  maps  (Figures  3  to  7). 
However,  additional  ones  may  be  inferred  from  the  relief  of 
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their  contained  intermediate  scale  erosional  structures  as 
shown  on  the  filtered  map  of  the  unconformity  (Figure  52). 

This  inference  is  based  on  the  assumption  that  areas  of 
deep  erosional  incisement  have  originally  had  a  higher  rel¬ 
ative  elevation  than  adjacent  areas  of  less  pronounced  erosion¬ 
al  activity  The  measure  is  not  considered  precise  but  only 
serves  to  distinguish  upland  areas  from  the  lower,  less 
erosionally  active  plains. 

In  southern  Alberta  the  erosional  relief  on  the  sub- 
Cretaveous  unconformity  distinguishes  three  areas  of  different 
surface  elevation.  Domain  subdivision  la  (Figure  58)  has  the 
most  deeply  incised  erosional  features  with  over  300  feet  of 
erosional  relief.  The  erosional  pattern  suggests  a  drainage 
system  with  streams  flowing  into  the  low  relief  area  to  the 
east.  The  erosional  relief  and  the  morphology  suggests  there 
was  an  area  of  relatively  high  elevation  during  the  time  of 
sub-Cretaceous  erosion  located  in  the  southwest  corner  of  the 
area  and  roughly  corresponding  to  the  position  of  the  West 
Alberta  Arch. 

The  erosional  relief  in  domain  subdivision  lb  is 
generally  under  200  feet  and  relatively  uniform  over  the 
entire  area.  The  low  relief  and  the  lack  of  a  pronounced 
drainage  pattern  suggests  a  stable  lowland  area  contrasted  to 
the  higher  domains.  To  the  north  and  across  a  dividing  line 
that  follows  the  eastern  swing  of  the  Mississippian  subcrop 
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edge*  domain  subdivision  c  has  erosional  relief  averaging 
400  feet.  The  deeply  incised  erosional  features  and  the 
drainage  morphology  (Williams*  1963),  particularly  the 
tributaries  that  trend  NE-SW*  suggests  this  area  could  have 
been  at  a  higher  elevation  than  its  neighbor  to  the  south. 
However*  the  main  drainage  follows  the  course  of  the  wrench 
fault  and  is  to  the  NW  suggesting  the  less  likely  but  altern¬ 
ative  interpretation  that  domain  subdivision  c  is  the  eroded 
portion  of  a  formerly  extensive  plain  with  domain  subdivision 
b  the  uneroded  remainder.  In  this  case  there  would  be  a 
decrease  in  elevation  from  a  to  c  and  the  boundary  between 
b  and  c  may  be  either  erosional  or  tectonic. 

During  the  sub-Cretaceous  period  of  erosion  the  large 
scale  structures  of  southern  Alberta  appeared  to  consist  of 
three  blocks  with  different  relative  elevations.  The  bound¬ 
aries  between  the  blocks  follow  older  structural  elements 
and  outline  subdivisions  of  differing  intermediate  scale 
structural  activity. 


Summary 

The  spatially  filtered  structural  contour  maps 
permit  elucidation  of  the  history  of  the  intermediate  scale 
structures  of  the  Interior  Plains  of  Southern  Alberta.  The 
events  and  their  sequence  are  valid  for  the  stratigraphic 
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Interval  spanned  by  the  maps.,  but  become  hypothetical  when 
the  Interpretation  Is  extended  much  beyond  their  limits. 

Two  directionally  stable,  orthogonal,  intermediate 
scale  structural  trends  dominate  all  maps.  Structures  with 
these  trends  and  associated  areas  of  uniform  structural 
amplitude  probably  reflect  the  architecture  of  the  underlying 
Precambrian  basement „ 

Structures  developed  after  the  beginning  of  Mississ- 
ippian  deposition  and  prior  to  the  beginning  of  Cretaceous 
deposition  (Figure  59)  can  be  identified  in  the  filtered 
structural  contour  maps„  The  structures  are  generally  tabular 
and  are  aligned  NE-SW  with  zones  of  highest  amplitude  confined 
to  the  southwest  corner  of  Alberta  and  to  the  central  area 
between  Edmonton  and  Red  Deer.  The  first  zone  is  located 
on  the  West  Alberta  Arch  (Ridge),  a  large  scale  structural 
high  that  was  prominent  during  the  lower  Paleozoic  (van  Hees 
and  North,  1964  j  Grayston,  et  al.,1964).  The  second  area 
overlies  the  Meadow  Lake  escarpment  where  there  was  previously 
known  tectonic  activity  as  recently  as  the  middle  Devonian 
(Grayston,  et  al„,  1964;  Jones,  1965). 

Although  there  were  previous  vertical  movements  on 
the  NW-SE  boundaries  of  the  tabular  blocks,  the  first  well 
defined  structure  on  the  second  main  trend  was  a  wrench  fault 


that  laterally  offset  the  NE-SW  trending  structures  by  at  least 


- 

. 
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Figure  59 

Main  pre-Cretaceous  structural  trends  in  southern  Alberta. 
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10  miles.  Movement  along  the  fault  was  prior  to  Cretaceous 
deposition  and  differential  erosion  deformed  the  shear  zone 
into  one  of  the  main  drainage  channels  on  the  unconformity 
surface  (Williams,  1963)0 

The  intermediate  scale  erosional  relief  on  the  sub- 
Cretaceous  unconformity  suggests  that  at  the  time  of  erosion 
there  were  three  large  scale  structural  blocks  with  different 
relative  elevations.  The  erosional  relief  suggests  the  area 
of  highest  elevations  again  conformed  to  the  West  Alberta 
Arch,  the  lowest  to  the  generally  structurally  stable  domain 
subdivision  b0  To  the  north  and  on  the  other  side  of  a 
dividing  line  immediately  south  of  the  Meadow  Lake  escarpment 
and  roughly  corresponding  to  a  Precambrian  boundary,  (Burwash 
et  al.,  1964,  p.  18)  a  third  block  was  at  an  elevation 
estimated  as  intermediate  to  the  two  southern  ones. 

During  Cretaceous  time  (Figure  60)  there  was  renewed 
tectonic  activity  producing  relatively  high  amplitude  structures 
in  the  southwest  "Arch"  area.  However,  the  previously  strong 
NE-SW  structual  trends  gradually  became  subordinate  to  the 
NW-SE  trends  so  that  by  late  Cretaceous  only  the  latter  are 
evident  in  the  First  White  Specks  maps.  At  the  same  time  and 
immediately  to  the  east  the  uplift  of  the  large  scale  Sweet 
Grass  Arch  (Figure  3)  produced  a  scatter  of  intermediate  scale 
structures  that  are  most  readily  recognized  on  the  First  White 
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Main  Cretaceous  structural  trends  in  southern  Alberta. 
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Specks  and  on  the  present  surface  outcroppings  (Russell 
and  Landes,  1940;  Alpha,  1955). 

Cretaceous  activity  in  the  northern  part  of  the  map 
area  resulted  in  additional  structural  movements  on  the  old 
NE-SW  trends c  This  movement  apparently  continued  throughout 
the  Cretaceous  and  the  pattern  is  discernible  in  the  morphology 
of  the  present  surface.  Activity  on  the  NW-SE  structural  trend 
seemed  to  nearly  subside  during  the  Cretaceous  with  the  only 
significant  activity  confined  to  the  western  part  of  the  area. 


Future  Developments 

The  application  of  spatial  filtering  methods  to  a 
suite  of  structural  contour  maps  has  permitted  the  definition 
of  some  of  the  significant  intermediate  scale  structures  of 
southern  Alberta,  The  coincidence  of  the  Bon  Accord,  Fairy- 
dell  and  Westlock  gas  fields  with  the  underlying  fault  zone 
and  the  apparent  alignment  of  many  of  the  other  gas  and  oil 
fields  with  the  structural  trends  point  out  the  strong  likeli¬ 
hood  of  a  depositional  and  thus  economic  dependence  on  struct¬ 
ural  controls. 

The  present  study  has  only  proven  the  existence  of 
intermediate  scale  structures  and  illustrated  some  of  their 
trends.  However,  there  are  known  structures  (e.g.  the  Leduc- 
Rimbey  reef  trend)  that  do  not  appear  to  fit  the  patterns  and 
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there  are  undoubtedly  many  other  and  as  yet  undiscovered  struct¬ 
ural  controls  that  remain  to  be  defined  In  future  studies. 

Fortunately,  exploratory  wells  are  continually  being 
drilled  and  form  additions  to  the  available  Information  so 
that  eventually,  possibly  In  conjunction  with  seismic  and 
other  geophysical  data,  filtered  maps  may  aid  In  an  Inter¬ 
pretation  that  could  lead  to  a  more  complete  understanding 
of  the  tectonic  history  of  Western  Canada.  An  integrated 
tectonic  and  stratigraphic  picture  on  the  scale  of  the 
structures  that  confine  petroleum  could  be  a  very  important 
economic  tool. 


' 


138 


REFERENCES 

Agarwal,  R0A.,  (i960):  Interpretation  of  aeromagnetlc  data  in 
west  central  Saskatchewan  and  east  central  Alberta; 
Sask.  Dept.  of  Mineral  Resources,  rep.  no.  63, 

17  pages . 

_ _ __(1962);  Regional  correlation  of  geological  and 

geophysical  data  In  the  Lake  Athabasca  area, 
northern  Saskatchewan;  Sask.  Dept.  Mineral  Res0, 
report  75,  4  pages„ 

(1963a) :  Regional  correlation  of  geological  and 
geophysical  data  In  the  Wollaston  Lake  area,  northern 
Saskatchewan;  Sask.  Dept.  Mineral  Resources,  report 
82,  4  pages. 

(1963b) :  Regional  correlation  of  geological  and 
geophysical  data  In  the  Cree  Lake  area,  northern 
Saskatchewan;  Sask.  Dept.  Mineral  Res.,  report  94, 

4  pages. 

Agocs,  W.B.,  (1951)’  Least  squares  residual  anomaly  determin¬ 
ation;  Geophysics,  Vol.  16,  p.  686-696. 

Alberta  Society  of  Petroleum  Geologists,  (i960);  Lexicon  of 
geologic  names  In  the  western  Canada  sedimentary 
basin  and  Arctic  Archipelago:  Alta.  Soc.  Petroleum 
Geol.,  380  pages. 

Alpha,  ACG0,  (1955)!  Tectonic  history  of  north  central 

Montana;  Billings  Geol.  Soc.  Guidebook,  6th  Annual 
Field  Conf.,  p.  129-142. 

Andrichuk,  J.M.,  (1961):  Stratigraphic  evidence  of  tectonic 
and  current  control  of  Upper  Devonian  reef 
sedimentation  in  the  Duhamel  area,  Alberta,  Canada; 
Bull.  Amer.  Assoc.  Petroleum  Geol.,  Vol.  45, 

p.  612-632. 

Anstey,  N.A.,  (1965)5  Wiggles;  Journ.  Can.  Soc.  Expl.  Geo¬ 
physicists,  Vol.  1,  p.  13-43. 

Barton,  R.H.,  and  Broscoe,  A.J.,  (i960):  The  geomorphic 

expression  of  selected  concealed  structures  in 
western  Canada;  Preprints  of  Papers,  Amer. Assoc. 
Petroleum  Geol.  and  Alta.  Soc.  Petroleum  Geol., 
joint  meeting,  Banff,  p.  74-81. 


V 


139 


Belyea,  H.R.,  (i960);  Distribution  of  some  reefs  and  banks  of 
the  Upper  Devonian  Woodbend  and  Fairholme  Groups 
in  Alberta  and  eastern  British  Columbia;  Geol.  Survey 
of  Canada,  paper  59-65,  7  pages „ 

Belyea,  H.R.,  Moyer,  G„L0,  Greg  F.F0,  and  Grayson,  L.D., 

(1964);  Upper  Devonian;  In  Geological  History  of 
Western  Canada,  (ed0  McCrossan,  R.G.,  and  Glaister, 
R.P.):  Alta.  Soc.  Petroleum  Geol.,  p.  14-19. 

Bhattacharyya,  B.K.,  (1965)?  Two-dimensional  harmonic  analysis 
as  a  tool  for  magnetic  interpretation;  Geophysics. 

Vol .  30,  p.  829-857. 

Bhattacharyya,  B.K.,  and  Raychaudhuri,  B. ,  (1967):  Aeromagnetic 
and  geological  interpretation  of  a  section  of  the 
Appalachian  belt  in  Canada;  Can.  Journal  Earth 
Sciences,  Vol.  4,  p.  1015-1037. 

Blackman.,  R.B.,  and  Tukey,  J#W. ,  (1958);  The  Measurement  of 
power  spectra;  Dover  Publications,  190  pages. 

Blanche!,  P0Ho,  (1957):  Development  of  fracture  analysis  as 
exploration  method;  Bull.  Amer.  Assoc.  Petroleum 
Geol.,  Vol.  41,  p.  1748-1759. 

Borden,  R.L.,  (1956);  Historical  Geology  and  tectonics  of  the 
southern  part  of  the  prairie  provinces,  Canada; 

Journ.  Alta.  Soc.  Pet.  Geologists,  Vol.  4,  No.  6, 
p.  134-140. 

Burwash,  R0A0,  Baadsgaard,  H. ,  Peterman,  Z0E0,  and  Hunt,  G0Ha, 
(1964);  Precambrian;  In  Geological  History  of 
Western  Canada  (ed.  McCrossan,  R.G.,  and  Glaister, 
R.P.);  Alta.  Soc.  Petroleum  Geol.,  p.  14-19. 

Burwash,  R.A.,  (1965):  Basement  architecture  of  western 

Canada;  Alta.  Soc.  Petroleum  Geol.,  15th  Annual 
Fid.  Conf.  Guidebook,  pt.  1,  p.  280-288. 

Byers,  A.R.,  (1962);  Major  faults  in  western  part  of  Canadian 
Shield  with  special  reference  to  Saskatchewan;  In 
the  tectonics  of  the  Canadian  Shield  (ed.  Stevenson, 
J#S„,  Royal  Soc.  Can.,  Spec.  Pub.  no.  4,  University 
of  Toronto  Press,  p.  40-59. 

Danes,  Z.F.  and  Oncley,  L.A.,  (1962);  An  analysis  of  some  sec¬ 
ond  deritive  methods;  Geophysics,  Vol.27*  p.  611-615. 


140 


Dawson,  G.M. ,  and  McConnell,  R„  G„  ,  (1885):  Report  on  the  region 
in  the  vicinity  of  the  Bow  and  .Belly  Rivers,  North¬ 
west  Territory;  Canada,  Geol0  Surv0  Report  Proge 
1882-1884.  pt.  c,  168  pages. 

Dean,  W.C,,  (1958):  Frequency  analysis  for  gravity  and  magnetic 
interpretation;  Geophysics,  Vol0  23,  p.  97-127. 

DeMille,  G0,  Lavoie,  D#H0 ,  Williams,  G.K.,  and  Macauley,  G. , 
(1958):  Symposium  on  the  Peace  River  arch;  Journ. 
Alta.  Soc0  Petroleum  Geol.,  Vol.  6,  p.  60-86o 

Dowling,  D.B.,  (1917) »  The  southern  plains  of  Alberta;  Geol. 
Sur.  Can.,  Memoir  93,  200  pages. 

Dowling,  D.B.,  Slipper,  SPEC,  and  McLearn,  F.H.,  (1919)* 

Investigations  in  the  Gas  and  Oil  Fields  of  Alberta, 
Saskatchewan,  and  Manitoba;  Geol.  Survey  of  Canada, 
Memoir  116,  89  pages. 

Gentleman,  W0MC,  and  Sande,  G.,  (1966):  Fast  Fourier  transforms 
-  for  fun  and  profit;'  AFIPS,  Proceedings  -  Fall 
Joint  Computer  Conference,  Vol.  29,  p.  583-578. 

Good,  D.I.,  (1964):  Fortran  11  trend  surface  program  for  the 
IBM  1620;  Spec.  Dist.  Pub.  14,  State  Geol.  Sur. , 
University  of  Kansas,  54  pages. 

Goldman,  S. ,  (1953)“  Information  theory;  Prentice-Hall  Inc., 

New  York,  385  pages. 

Grant,  F.,  (1957) :  A  problem  in  the  analysis  of  geophysical 
data;  Geophysics,  Vol.  22,  p.  309-344. 

Grant,  F.S.,  and  West,  G.F.,  (1965)2  Interpretation  theory  in 
applied  Geophysics;  McGraw-Hill  Book  Comp.  Inc., 

N.Y. ,  583  pages. 

Grayston,  L.D.,  Sherwin,  D.F.,  and  Allan,  J.F.,  (1964):  Middle 
Devonian;  (ed.  McCrossan,  R#G0,  and  Glaister,  R.P.); 
In  Geological  history  of  western  Canada;  Alta.  Soc. 
Petroleum  Geol.,  p.  39-59. 

Griffin,  W.R0,  (1949) •  Residual  gravity  in  theory  and  practice; 
Geophysics,  Vol.  14,  p.  39-56. 

Haites,  T.B.,  (i960):  Transcurrent  faults  in  western  Canada; 

Journal  Alta.  Soc.  Petroleum  Geol.,  Vol.  8,  p. 

33-78. 


. 


l4l 


Harbaugh,  J.W.,  (1963);  Balgol  program  for  trend-surface 

mapping  using  an  IBM  7090  computer;  Spec0  Dist. 

Publ.  3*  State  Geol,  Sur.,  University  of  Kansas, 

17  pages, 

Harbaugh,  J.W„,  and  Preston,  F.W.,  (1965)2  Fourier  series 
analysis  in  Geology;  In  symposium  on  computers 
and  computer  applications  in  mining  and  explor¬ 
ation;  (ed,  Dotson,  J.C.,  and  Peters,  W.Cc), 
college  of  mines.  University  of  Arizona,  Vol.  1, 
p,  R1-R46. 

Henderson,  R0G.,  and  Zeitz,  I, ,  (1949);  The  computation  of 
second  vertical  deritives  of  geomagnetic  fields; 
Geophysics,  Vol,  14,  p,  508-516. 

Hitchon,  B, ,  (1964) j  The  effect  of  differences  in  interpretat¬ 
ion  on  the  lithological  evaluation  of  electric  logs; 
Bull,  Can,  Petroleum  Geol,,  Vol,  12,  p,  754-759. 

Holloway,  J.L.,  (1958);  Smoothing  and  filtering  of  time  series 
and  space  fields;  Advances  in  Geophysics,  Vol.  4; 
Academic  Press  Inc,,  p,  351-389. 

Hume,  G.S.,  (1933);  Oil  and  gas  in  western  Canada;  Geol.  Surv. 
Can,,  Econ,  Geol.  Ser.  5,  359  pages. 

James,  W.R.,  (1966):  Fortran  IV  program  using  double  Fourier 
series  for  surface  fitting  of  irregularly  spaced 
data;  Computer  contribution  5*  State  Geol.  Surv. 
University  of  Kansas,  17  pages. 

Jones,  L, ,  (1965);  The  middle  Devonian,  Winnipegosis  Formation 
of  Saskatchewan;  Sask.  Depart.  Mineral  Res.,  report 
98,  101  pages. 

Kanasewich,  E0R.,  (1967);  A  buried  precambrian  rift  in  western, 
Canada;  Abstract,  Upper  Mantle  Committee,  Symposium 
on  Rifts,  Zurich,  Germany. 

Krumbein,  WcC0,  (1956);  Regional  and  local  components  in  facies 
mapsi-Bull.  Amer,  Assoc,  Petroleum  Geol.,  Vol,  40, 
p.  2163-2194. 

_ (1959);  Trend  surface  analysis  of  contour- 

type  maps  with  irregular  control-point  spacing; 

Jour.  Geophysical  Research,  Vol.  64,  p.  823-834. 


Krumbein,  W.C.,  and  Graybill,  F.A.,  (1965);  An  introduction  to 


. 


142 


statistical  models  in  Geology;  McGraw-Hill  Book 
Co.,  New  York,  475  pages0 

Lattman,  L.H.,  and  Matzke,  R.H.,  (1961  ):  Geological 

significance  of  fracture  traces;  Photogrammetric 
Engineering,  Vol0  27*  p0  435-438. 

Lattman,  L„H.,  and  Segovia,  A.V. ,  (1961):  Analysis  of  fracture 
trace  pattern  of  Adak  and  Kagaloska  islands,  Alaska; 
Bull.  Amer„  Assoc.  Pet.  Geol.,  Vol.  45*  p.  249-263. 

Lee,  Y„W. ,  (i960):  Statistical  theory  of  communication; 

John  Wiley  and  Sons,  New  York,  509  pages. 

Levorsen,  A#I«*  (1927)’  Convergence  studies  in  the  mid¬ 
continent  region;  Amer.  Assoc.  Pet.  Geol.,  Vol.  11, 
p.  657-682. 

Lindoe,  Lo0. ,  (1965);  Ceramic  clays  of  the  Cypress  Hills; 

Alta.  Soc.  Pet.  Geol.,  15th  Annual  Fid.  Conf., 
Guide-book,  pt.  1.,  p.  210-225. 

Marshall,  J.L.,  (1965)?  Introduction  to  signal  theory;  Inter. 
Textbook  Co.,  Scranton,  Pa.,  254  pages. 

McCrossan,  R0Go,  and  Glaister,  R0P0,  (editors),  (1964): 

Geological  history  of  western  Canada;  Alta.  Soc., 
Petroleum  Geol.,  232  pages. 

Merriam,  D.F.,  and  Cocke,  N0C„,  (editors),  (1967a):  Computer 
applications  in  the  earth  sciences:  colloquium 
on  trend  analysis;  Computer  Cont.  10,  State  Geol. 
Surv.,  University  of  Kansas,  Lawrence,  62  pages. 

Miller,  R,L„,  (1956):  Trend  surfaces:  their  application  to 
analysis  and  description  of  environments  of 
sedimentation;  Jour.  Geology,  Vol.  64,  p.  425-446. 

Miller,  R„L.  and  Kahn,  J.S.,  (1962):  Statistical  analysis  in 
the  geological  sciences;  John  Wiley  and  Sons,  Inc., 
New  York,  483  pages. 

Morley,  L.W.,  and  Bhattacharyya,  B.K.,  (1966):  Quantitive 

treatment  of  aeromagnetic  data  in  mineral  areas; 

Can.  Inst.  Min.  Met.  Bull.,  Vol.  59*  p.  733-742. 


-I*1 


143 


Nettleton,  L0L0,  (195^)»  Regionals,  residuals  and  structures; 
Geophysics,  Vol0  19,  p.  1-22. 

a 

Oil  and  Gas  Conservation  Board,  (19 66);  Table  of  Formations; 
O.G.C.B.,  Calgary, 

Oldham,  C.H.G.,  and  Sutherland,  D.B.,  (1955)*  Orthogonal 

polynomials:  their  use  In  estimating  the  region¬ 
al  effect;  Geophysics,  Vol.  20,  p0  295-306, 

O’Leary,  M, ,  Llppert,  R.H„,  and  Spitz,  0,,  (1966):  Fortran 

IV  and  map  program  for  computation  and  plotting  of 
trend  surfaces  for  degrees  1  through  6;  Computer 
contribution  3,  State  Geol,  Survey,  University 
of  Kansas,  Lawrence,  47  pages, 

Peters,  L.J.,  (1949)*  The  direct  approach  to  magnetic 

interpretation  and  its  practical  application; 
Geophysics,  Vol,  14,  p,  290-320, 

Peterson,  R.A.,  and  Dobrin,  M,B, ,  (editors),  (1966):  A 
pictorial  digital  atlas;  United  Geophysical 
Corp,,  Pasedena,  Calif,,  p,  53» 

Rich,  J.L.,  (1935a):  Graphical  methods  for  eliminating  region¬ 
al  dip;  Bull,  Amer,  Assoc,  Petroleum  Geol,,  Vol,  19, 
p,  1538-1540, 

( 1935b ) :  Fault  block  nature  of  Kansas  structures 
suggested  by  elimination  of  regional  dip;  Bull, 

Amer,  Assoc,  Petroleum  Geol,,  Vol,  19,  p0  1540-1543. 

Robinson,  E.A.,  and  Treitel,  S, ,  (1964):  Principles  of  digital 
filtering;  Geophysics,  Vol,  29,  p.  395-404, 

Russell,  L.S.,  (1932):  Stratigraphy  and  structure  of  the 

Eastern  portion  of  the  Blood  Indian  reserve,  Alberta; 
Geol.  Surv.  of  Canada,  Summary  report  (1931),  part 
B, ,  p,  26-38. 

Russell,  L.S.,  and  Landes,  R.W.,  (1940):  Geology  of  the  south¬ 
ern  Alberta  plains;  Geol.  Surv,  Can.,  Memoir  221, 

223  pages. 

Sikabonyi,  L.A.,  (1957):  Tectonic  trends  in  the  prairie  region 
of  western  Canada;  Jour.  Alta.  Soc.  Petroleum  Geol., 
Vol.  5,  p.  23-28 


144 


Sikabonyi*  L.A0*  and  Rodgers,,  W.J.*  (1959)  2  Paleozoic  tectonics 
and  sedimentation  in  the  northern  half  of  the  west 
Canadian  basin;  Jour0  Alta.  Soc0  Petroleum  Geol .  * 

Vol.  7,  p.  193-216. 

Simpson,  S.M.,  (195^) s  Least  squares  polynomial  fitting  to 

gravitational  data  and  density  plotting  by  digital 
computers!  Geophysics*  Vol.  19,  p.  255-269. 

Swartz*  C„A.*  (1954);  Some  geometrical  properties  of  residual 
maps!  Geophysics*  Vol.  19,  P.  46-70. 

Turner*  F0J0*  and  Weiss*  L.E.*  (1963)2  Structural  analysis  of 
metamorphic  tectonites!  McGraw-Hill  Book  Company* 
Inc.-*  New  York*  545  pages. 

van  Hees*  H. *  and  North*  F.K.*  (1964);  Cambrian;  (ed.  McCrossan* 
R0G„*  and  Glaister*  R.P.*  In  Geological  History  of 
western  Canada!  Alta.  Soc.  Petroleum  Geol.*  p.  20- 
33. 

Webb*  J0B0*  (1954)2  Geological  history  of  plains  of  western 
Canada!  In  western  Canada  sedimentary  basin  (ed. 
Clark*  L0M0).  Amer.  Assoc.  Petroleum  Geol.*  p.  3-28. 

Williams*  G.D.*  (1963)2  The  Mannville  group  (Lower  Cretaceous) 
of  central  Alberta!  Bull.  Can.  Petroleum  Geol.* 

Vol.  11*  p.  350-368. 

Williams*  M.Y.*  and  Dyer*  W0S„*  (1930);  Geology  of  southern 

Alberta  and  southwestern  Saskatchewan*0  Geol.  Surv. 
of  Canada*  Memoir  163*  160  pages. 

Wilson*  H,D0B. *  and  Brisbin*  W.C.*  (1962);  Tectonics  of  the 

Canadian  Shield  in  northern  Manitoba!  In  tectonics 
of  the  Canadian  Shield  (ed.  Stevenson*  J0S0); 

Royal  Soc.  of  Can.*  Spec.  Publ.  4*  University  of 
Toronto  Press*  p.  60-75. 

Zurflueh*  E.G#*  (1967)2  Application  of  two-dimensional  linear 
wavelength  filtering!  Geophysics*  Vol.  32*  p.  1015- 
1035. 


145 


APPENDIX 


Program  1 

Main  program  and  subroutines  for  computing  a  one¬ 
dimensional  Fourier  transform  from  a  distance  domain  digitized 


cross  section,, 

Input  to  the  program  is: 
Format  (5X,15) 

Format  (5X, 15) 


Format  (5X,F8.3) 
Format  (4X, 10F5o0)  - 


input  device 

number  of  digital  values 
must  be  factorable  into 
numbers  not  greater  than  13. 

digital  interval  in  miles 

input  digital  values  as  a 
continuous  vector  beginning 
with  the  center  of  the  section 


The  output  is  in  the  same  order  as  the  input  vector 
and  includes  the  real  amplitude,  imaginary  amplitude,  power 


absolute  amplitude  and  phase. 


C  THIS  PROGRAM  CALCULATES  a  ONf  DIMENSIONAL  FOURIER  TRANSFORM  using 

C  AN  ALGORITHM  OF  GOOD  (1958)  AS  MOD  I  FI  FD  BY  COOLE  Y-TIJKFY  (1  966) 

C  AND  GFNTLFMaN-SANDF  (  1 Q66  ) 

c 

c  X  (  J  )  + 1 Y  (  J  )  IS  THF  COMPLEX  VECTOR  iisfd  IN  SUBROUTINE  FOl  (R  ID 

C _ X(J)  IS  REAL  AND  Y(J)=n.o _ 

c  nopts  *****  thf  number  of  data  points 

c  DFLT  ***  THE  DIGITIZING  INTERVAL  IN  MILES 

C _ INPUT  ***  UNIT  FROM  WHICH  DATA  IS  TO  BE  READ 

COMMON/ DAT /X  (  3000)  *  Y  (  3000  ) 

COMMON /CON  ST /NOP TF 

_ RF AL  AMPL  *PHASF _ 

in  FORMAT  (5X*T5) 

20  FORMAT  (5X,I5) 

30  FORMAT  (5X,F8.3) 

3 )5 FORMAT ( 4X  ,10F5#0 ) 

40  FORMAT  (1X*10HINPUT  DATA) 

£ 0  FORMAT  ( 1 HT  *  1 4X  *  so  m**  **************************** -a-*-**#*  *-•*•*  **•»  •**••**■» 

1  ****** ) 

60  FORMAT  ( 1 X  * 6HDEL T= , F8 • 3  *  IX * 1 8HN YOU  I  ST  FRFQUENCY= ,F8 . 3 ) 

70  FORMAT  (1X*8HN0Pts  =  ,15)  _  _______ _  ______ _ 

80  FORMAT  (  1 X  ,  1  2HFREQUENC  Y  =  J*  *F  1 0  •  6 , 1  X  ,  1 7HC  YCLES  PER  MILE  ) 

100  FORMAT  ( IHK*40X *^2H0NF  DIMFNTIONAL  FOuRIFR  TRANSFORM) 

1 1 0  fORMaT  ( 1 HT ,iqX ,osh*********************************) 

120  FORMAT ( 5X  *2H  J*7X,4HR(J)*2^X,6HIM(J),1 6X  ,5HP0WER ,  1  6X , 9HAMP L I TUDE , 
1 1 3X  » 5HPHASE ) 

130  FORMAT ( IX » 16 »5X»4( Ell  .4 , 1  OX )  , El 1 . 4 ) 

read  (5*10)  INPUT 
WRITE (6  *99) 

99  FORMAT ( * I » ) _ 

READ  (5,20)  NOPTS 
READ  (5,30)  DELT 

_ READ  ( I NPUT  *35)  ( X ( J  )* J  =  1  * NOPTS ) 

WRITE  (6*40) 

WRTTF  (6*35)  ( X ( J  )  * J  =  1  , NOPTS ) 

_ WRTTF  (6*50) _ 

FN  =  1 • / ( 2 • *DFLT ) 

WRITE  (6,60)  DELT,FN 
_____  _  J£RITF  ( 6  *  7n  )  NOPTS„ 

~  FP  =  (  FN*2  . 0  )  /<  FLOAT  (  NOPTS  )  ) 

WRITE  (6*80)  FP 
SUM  =  0 

DO  88  J  =  1  , NOPTS 
SUM=SUM+X ( J ) 

88  CONTINUE . . . .  . . . .  .  . . . _____ . . _____ 

AVFR=SUM/fl6aT (NOPTS ) 

DO  89  J  =  1  , NOPTS 

_ X  (  J  )  =X  (  J  )  -  A  V  F  R _ 

89  CONTINUE 

DO  90  J  =  l, NOPTS 

Y(J)  =  0.0 _ _ _  __ 

90  CONTINUE 
CALL  FOUR  ID 

_ CALL  SORT  ID _ 

WRITE  (6*1on) 

WRITE  (6*110) 

_ ^RITE  (6*120) 

190  CONTINUE 

DO  ]40  J=] , NOPTS 

TF(  (X( J) .GE.1 .0E7) .OR.  (Y( J)  .GF.i  ,0F7)  )GOTO  1 7Q 
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POWFR=X ( J ) **2  +  Y ( J ) **? 

AMPL  =  SORT ( X ( J ) **?+ Y ( J ) **? ) 

IF  (X ( J ) .EQ.O.O)GO  TO  210 

phase  =  atan2(y(J) ,x( j) ) 

PHASER ( 3.14159*PHASE ) / 180.0 

GO  TO  22 0 _ 

210  P  H  A  S  E  =  0 

220  WRITE(6*130)J*X(J),Y(J) , POWF R , AMPL , PH ASF 

140  CONTINUE  _ 

GOTO  200 
170  CONTINUF 

DO  180  J=1,N0PTS _ 

X ( J  )  =X ( J ) * . 00 1 
Y  {  J  )  =  Y  (  J  )  *  .  0  0  1 
180  CONTINUE 
GOTO  190 
200  CONTINUE 

9  TOP _ 

END 


C 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 


SUBROUTINE  FOUR  ID _ 

ONE  DIMENSIONAL  FOURIER  TRANSFORM 

COMMON /DA T /X ( 2000) ,Y( 2000) 

COMMON /CON 9 T /NOP T9 

INTFGFR  J»K  >M,MR  »J1 »J2»J3»J4»J5»JT 
REAL  11*12*13*14*15 
INTEGER  P*PMAX*U,V 


NEFDS  SORT  ID  TO  RECOVER  UNSCRAMBLED  EOljRlFR  COEFFICIENTS 

THIS  SUBROUTINE  REPLACES  X  +  I  Y  BY  ITS  FOURIER  TRANSEORN  WHERE 

X  (  E  )  +  I Y  (  F  )  =  SUM  T  =  o  ,  ( NOPTS-1 )  OF  ( X ( T )  +  IY ( T )  ) *EXP ( -F*T/N0PT9  )  . 

REAL  I  ( PMAX ) »  R  ( PMAX ) *  C  (PMAX ,PMAX ) »  S  (PMAX»PMAX ) * 

.A- ( ( PMAX-1 ) **2+1 ) *  B  ( (PMAX-1 )**2+l > 

REAL  I  (I'M*  R  (19),  c  (12*13)*  9  a  Maf),  p  (149) 


PM  A  X  =  1 2 


TWOP I =6 • 2 83 1 85 207 
M=MOPTS 
100  CONTINUE 

IF  (M.NE.(M/4)*4)  GO  TO  400 

FACTORS  OF  FOUR 

MR  =M 
M  =  M  /4 
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?TqoM=M 
qnmrnoo  onr 
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DO  300  J=1  ,M 

ARG=TWOP I *FLOAT ( J-l ) /FLOAT ( MR ) 
C1=C0S ( ARG ) 

SI =S IN ( ARG) 

07=00$ ( 2 • 0* ARG ) 

_ S2=S!N ( 2«0*ARG  ) _ 

C3=C os ( 3 .o*ARG ) 

^3  =  ON ( 3 • 0*ARG ) 

_  DO  ?00  K=MR,NQPTS»MR 

Jl aJ+K— MR 
J2=J1+m 

_ J3  = J7+M _ 

J4=J3+M 

R 1 =X ( Jl ) +X ( J3  ) 

R?  =  X ( JI ) -X ( J3  ) 

II =Y ( Jl )+Y( J3 ) 

I  2  = Y ( J 1  ) -Y { J3  ) 

R3  =  X  ( J7 ) +X ( J4  ) _ ___ 

R4=X ( J2 )-X ( J4 ) 

T  o  =  Y ( J  2 )+Y( J4) 

T  4  =  Y ( J  2 )-Y( J4> 

X ( Jl ) =R1 +  R~3 
Y  (  J I  )  =  I  1  + 1  3 

_ X(J7)=(R2+I4>*C1+(I2-R4>*S1 

Y( J2)=( I2-R4)*C1-(R2+I4 )*S1 
X (J3)=(Rl-R3)*C2+( 11-13 )*S2 
Y<  J3 )  =  ( I1-I3)*C2~(R1-R3)*S3 

X  (  J4  )  =  (  R  2  - 1 4 )  *  C3  +  (  I  2  +  R  4  )  *  S  3 

Y( J4)  =  (  I2  +  R4)*C3-(R2-I4)*S3 
2Qn  rONTlNOF  _ _ 

30n  CONTINUE 
GO  TO  100 
400  CONTINUF 

IF  (M.NF* (  M  /  7  )  *  2  )  GO  TO  700 
C 

c  factors  of  two 


MR  =M 
M  =  M/7 

DO  600  J  =  1  *M 

ARG=TWOP I*FLOAT ( j-l ) /FLOAT (MR) 
Cl =C05 ( ARG ) 

SI =SIN (ARG) 

DO  500  K=MR  ,NOPTS ,MR 

Jl =J+K-MR 

J7=J1+Y 

R 1  =X ( Jl ) +X ( J2  ) 

_ R2=X  (  Jl  )-X(  J2  ) _ _ 

1 1 =  Y ( Jl ) +Y ( J  2 ) 

I2=Y( Jl )-Y( J2 ) 

X( Jl ) =R 1 
Y( Jl )=I1 

X  (  J 2  )  =R  2*0  +  I  ?*S  1 

_ Y( J2 ) =  1  2*C1-R2*S1 _ 

50o  CONTINUF 
600  CONTINUF 
GO  TO  400 
700  CONTINUE' 

IF  (M.NF. (M/3 ) *3 )  GO  TO  1000 
C 
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c  factor*;  of  thrff 
c 

VR=M 
M  =  m  /  3 

A 1 =COS ( TWOP 1/3.0) 

_ R1  =  MN(  TWOPT  /3.0) _ 

A  2 =008 ( 3 • 0*TWOP 1/3.0) 

P2=SIN( 2.0*TW0P 1/3,0) 

DO  900  J  =  1  ,M 

aRg=TWOP I*FLOAT (  J  -  1 ) /FLOAT (MR ) 

C 

C  ABSORB  TWIDDLE  FACTOR  INTO  ANALYSIS  COEFFICIENTS 

C 

C?1=C0S( ARG) 

S21»SIN( ARC ) 

C?2=C ?1*a!-S 2 1 *B 1 
S22=C21*R1+S21 * A 1 

_ C23=C21*A2-S21 *P2 _ 

S23=C21*R2+S21 *A2 
C31=COS(2.0*ARG) 

S31«SIN(2.0»ARG ) 

C32=C31*A2**S31*B2 

F32=C31*R2+S31*A2 

_ C33=c31*A1 -S31*PI _ 

S 33=031* R 1+8 31 *  A  1 

DO  800  K=MR,N0PT8,MR 

J1 =J+K-MR 

J2=J1+M 

J3=J2+M 

_ _ R  1  =X  (  J1  ) _ 

T 1  =  Y  (  J 1  ) 

R2=X ( J2 ) 

I  2  =  Y  (  J  2  ) 

R 3  =  X ( J3  ) 

I  3  = Y ( J3  ) 

X ( J1  ) =R 1 +  R2+R  3 


y  ( j  i )  =  n  +  12+1 3 
X  (  J2  )  =! 

y  (  J ?  )  =  t  l  *C2I-‘R1*S2H-I2*C22-R2*S22+I3*C23‘“R3*S23 


X(  J3  )=l 

Y( J? ) =T l*C31-Rl*S31+I 2*C32-R2*S32+I 3*C33-R3*S33 


800  CONTINUE _ 

90n  CONTINUE 
GO  TO  700 
1000  CONTINUE 

IF  ( M . N F . ( M / 5 ) * 3  )  GO  TO  130  0 


C 

C _ FACTOR*;  OF  FTVF 

C 

MR  =M 


M  =  M  /  5 

Al*COS ( TWOP 1/5.0) 

R 1  =  S  I N  ( TWOPT/ 5.0) 

A  2  =00*;  (  2  .o* TWOP  1/3.0) 
°2  =  MN  (  2  .o*  TWOP  T  /3 .0  ) 

A  3  =  008 ( 3 . 0*TWOP  1/3.0) 
P3=S IN ( 3 ,0*TWOP I/3.o) 
A  4  =  008 ( 4 • 0*TWOP I/3.o) 
R4=3 IN ( 4 .o* TWOP I/3.o) 
DO  1  200  J  =  1  *  M 
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ARG=TWOPI*Fl  OAT ( J-T)  /  FLOAT <  mr  ) 

C 

C  ABSORB  TWIDDLE  FACTOR  INTO  ANALYSIS  COEFFICIENTS 

C 

CPI =COS ( ARG ) 

_ -S21  =STN  (  ARG  ) _ _ 

C22=C21*A1-S21 *B1 
S??=c?l *R1 +  S21 *A] 

C23=C21*A2-S21*B2 
S23=C2i*B2+S21 *A2 
C24=C21*A3-S21*B3 

_ S24=C21*R3  +  S21*A'a _ _ 

C2R=C21*A4-S21*P4 
S2R=C21*B4+S21  *A4 

_ _ _ C31-COS( 2 »0*ARG) 

s?1 =SIN ( ? • 0  *  A  P  G ) 

C^2=C31*A2-531*B2 

_ S32=C31*B2+S31 *A? _ 

C  3  =  C  3 1  *  A  4—  S  3  I  *  B  4 
S3  3  =  C3 1 *R4+S3 1 * A4 
C34=C31*A1 -S3] *R1 
S34=C31*B1+S31*A1 
C3R=C31*A3-S31*R3 

_ S3R=C31*R3-kS3],*A^ _ 

C4 1 =COS  (  3  •  n *  A  R G  ) 

S41=SIN ( 3.0* ARG ) 

C42=C41*A3-S4]*B3 
S42=C41*R3+S41*A3 
C4^=C41*A1-S41 *R1 

_ S43=C41*R1*S4] »A] _ 

C44=C41*A4-S41 *B4 
S44=C41*B4+S41*A4 
C  4  R  =  C  4 1  *  A  2  -  S  4J  *  B  ? 

S45=C41*R2+S41*A2 

cs ] =cos ( 4.o*arg ) 

_ SRI =SIN ( 4.0* ARG ) _ 

CS2=CS1*A4-S51 *B4 
SR2=C51*B4+S51*A4 
C33=C51*A3-S5] *B3 
S  3  3  =  C  3 1  *  B  3  +  S  5  1  *  A  3 
CS4=CS1*A2-SS] *B2 
SR4=C5] *R2+SR]*A2 
CRR=C51*A1-S51*B1 
SRR=CR1*B] +SR1 *A1 
DO  1100  K  =  MR  *NOPTS  *MR 
J1 = J+K-MR 
J?=J1+M 

_ J3=J?+M _ _ _ 

J4  =  J^+M 
J5= J4+M 
PI  =  X ( J 1  ) 

I l*Y ( J1 ) 

R 2  =X ( J2  ) 

_ I2  =  Y( J2  ) _ 

R3=X ( J3 ) 

I  3  =Y ( J3 ) 

R4=X ( J4 ) 

1 4  =  Y  (  J  4  ) 

R S  =  Y ( JS  ) 

I5=Y( JR ) 
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X(  J1 ) =Rl+R2+R3+R4+R5 
Y ( J 1  )=I1+I2+I3+I 4+ I  5 
X  (  Jp  )  =[ 

.  Ra*C2S+  i  b*s25 

Y ( J? ) =T1  *C21  -R] *S21+T  2*C2?-R?*S?2+T 3*c?3-R3*S?3+ I4*C 24-R4*S24+ 
«  15*C?5-R5*5?B 

.RS*C35+Is*S35 

Y  (  J3  )  =T  1  *C31~Rl*S31+I 2*C32~R?*S32+  T 3^C33^3^ >s?  +  T4*C'34-R4*S34+ 
. I5*C35-R5*S35 


X  (  J4  ) =R 1 *C  41  +  I1*S41+R?*C4?+I?*S4?+R3*C43+I3*S43+R4*C44+I4*S44+ 
«RS*C45+  I  S*S4S _ 

Y  (  J4  )  =  I  1*C41  “Rl*S41+I  2*C42"R?*S4?  +  I  3*C43-R3*S43+ T4*C44“R4*S44+ 
. I5*C43-R3*$45 


X  (  J 3  )  =R  1  *C5  1  + 
•  R  5  *  C  5  5+1 5*S55 


Y(J6)=I1*C 51 -Rl*S51+I2*C52“R?*S 52+13 *C53“R3*S53+I4*C54-R4*S54+ 
. T5*C55-R5*S55 


1100  CONTINUE 
1 2 On  CONTINUE 

CO  TO  1000  _ _ 

1300  CONTINUE 

IF  (M.LF.l)  GO  TO  2400 

C _ 

C  GFNFRAL  FACTORS 

c 

DO  1400  J=2»PMAX 
P  =  J 

IF  ( M  #  FQ • (M/P) *P )  GO  TO  1500 
1400  CONTINUE _ _ 

CALL  FCT  FRR 
1500  CONTINUF 

JT= ( P-1  } **2  +  1  _ _ _ 

C 

C  SET  UP  ARBITRARY  FACTORS 

c _ 

DO  1600  J  =  1  *  J  T 

ARG=TWOPI*FLOAT ( J-l ) /FLOAT ( P ) 

A ( J)=COS(ARG) 

B ( J) *51 N ( ARG ) 

1600  CONTINUF 

MR  =M 
M  =  M /R 

DO  2300  J= 1 ,M 

_  __  ARG  =  TWOPI*FLOAT  (J-1  ) /FLOAT  (  MR  ) 

c . 

C  ABSORB  TWIDDLE  FACTOR  INTO  ANALYSIS  COEFFICIENTS 

C _ 

DO  1800  U=1,P 

C  (  U  *  1 }=COS( FLOAT (u-l  ) * ARG ) 

S ( U  » 1 )*SIN(F LOAT ( U -1 ) *ARG ) 

"DO  1700  V=2»P 
J  T  = ( U—l ) * ( V-1  ) +1 

C(U*V)=C(U*1 )*A( JT)-S(U*1 )*R( JT) 

S(INV)=C(U,1  )*B(  JT)+S(UU  )*A  (  JT  ) 

1700  CONTINUF 
1800  CONTINUE 

HT7F05 . K=MR  *  N OP  T S  » M R 
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C  GFNFRAL  ANALYSIS 
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c 

DO  1 900  U= 1 9P 

JT=J  +  K-MR+(U-1  )*M 

R (U ) =X ( JT ) 

I  (IJ)=Y(  JT) 

1  Qnn 

CONTINUE 

DO  7  100  U  —  1 9  P 

XT=o ,0 

YT=O,0 _ _ _ _ _ _ _ 

DO  2000  V~ 1 9 P 

XT=XT+R ( V)*C(U9V )  +  I (V >*S f  1 1 9  V ) 

YT=YT+I  (  V)*C(l)9V  )-R  (V)*S(U,V) 

2ono 

CONTINUE 

JT  =  J+K-MR+ ( U- 1 )*M 

X ( JT ) =XT 

Y ( JT ) = Y  T 

?l  no 
22  no 

CONT  IN!  (F 

CONTINUE 

23on 

CONTINUE 

GO  TO  1300 

2400 

CONTINUE 

RETURN 

END 

surrouttnf  sort  id 

c 

c 

UNSCRAMBLING  PROGRAM  for  ONF  DIMfNsIONaL  FOuRTER  COEFFICIENTS 

COMMON/DAT/X ( 3000) ,Y(3000) 

c 

COMMON /CONST/ NOP TS 

REAL  S ( 3  0  9  0 ) 

INTFGFR  JT 

TNTFGFR  DO , L I M ( 1 3 ) 9 STFP ( 1 3 )  9 P 9 PM AX 

INTEGER  A9B9C9D9F9F,G9H9l9J9K,L,M9AL,RL,CL,DL,EL,FL,GL,HL,IL,JL, 

•  KL  9  LL  *ML  *  AS  *  RS  *  CS  *  DS  *  FS  *  FS  >  GS  » HS  > I ^  >  JS  *  KS  *  L  c  *  MS 
C 


C 

DIGIT  REVERSER  FOR  USE  WITH  FOUR  ID  .  S  MUST  BE  THE  FAME  SIZE  AS 

C 

c 

c 

c 

c 

X  AND  Y. 

EQUIVALENCES  TO  ALLOW  INDEXING  TO  SET  PARAMETERS  AND  ALLOW 

SCALARS  FOR  USE  IN  THE  DO  LOOPS* 

EQUIVALENCE  ( AS  9 STFP (  1  >  )  9 ( RS 9  STEP ( 2 >>  ,  ( CS 9 STFP ( 3 > )  9 ( DS  ,  STEP ( 4  )  )  , 

. (ES»STFP (5 ) ) » ( FS,STFP (S ) ) » (GS,STFP (7 ) ) 9 ( H^,RTFP( 8 ) ) » ( TS,STEP (9) ) , 
. (JS9STFP(10> ) 9 ( K S ♦ S T E P ( 11)  )  9 (LS9STFP(1?  )  )  9 (MS*STEP(13>  ) 
EQUIVALENCE  ( AL 9LIM ( 1 ) ) 9 ( BL 9 L IM ( 2 ) ) 9 ( CL 9L I M ( 3 ) ) , ( DL 9 L I M ( 4 ) ) 9 


.(FL9LIM(5)),(FL,LIM(6))9{GL,LTM(7))9(HL,LIM(8))9(IL,LIM(Q)), 

.(JL9LIM(10))9(KL9LTM(U))9(LL,LIM(1?)),(ML9LIM(13)) 

c 


C 

C 

PMAX  IS  SFT  TO  AGREF  WITH  FOUR  ID 

PMAX= 1 3 

C 

C 

C 

SFT  LIMITS  AND  STEP  SIZES  FROM  INNFR  LOOPS  GOING  OUT 

1  00 

. C . 

c 

c 

D0=1  3 

M=NOPTS 

CONT I NUF 
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IF  (M.NF. (M/4 )*4)  GO  TO  2^0 
M  =  M  /  4 


C 

C  RFALLY  WANT  0-4*M-l  RUT  WF  GO  FROM  1  TO  4*M.  4  STFPS  OF  M  WITH 

C  MAXIMUM  DTSPLACFMFNT  OF  M  INITIALLY 

c 


c 

c 

c 

c 

r 

c 


LIM(DO) =  4*M 
STFP (DO ) =M 
D0=D0-1 
GO  TO  100 
20n  CONTINUF 


CHECK  FOR  REMAINING  F ACTORS 
IF  (M»LE»1)  GO  TO  500 
FACTORS  OF  2*3*5*7*11*13 


DO  son  JT=?,PMAX 
P  =  JT 

IF  (M.FQ.  (M/P  )*P  )  GO  TO  400  _ _ _  _ _ _ 

So 0  CONTINUE 
C 

C _ FRROR  FXTT  TF  FACTORS  ABOVE  PMAX  ARF  NFFDFD _ 

C 

CALL  FCT  ERR 
4oo  CONTINUE 

Y  =  M/P 

c 

C _ RFALLY  WANT  Q-P*M-1  RUT  WE  USE  1  TO  P»M,  P  STFPS  OF  M  WITH _ 

C  MAXIMUM  INITIAL  DISPLACEMENT  OF  M 

C 

L I M ( DO ) =P*m 

STFP ( DO ) 

D0=D0-1 

_ GO  TO  20  0 _ 

500  CONTINUF 
C 

c  finish  out  thf  do  loops  to  make  outer  loops  execute  only  oncf 

c 

DO  600  JT  =  1 *  DO 

_ LIM( JT)=1 _ 

FTFP ( JT ) =1 
600  CONTINUF 

c 

C  '  SET  JT  so  THAT  JT  RUNS  FROM  TfO  NOPts .  IN  STEPf  OF  1  WHILE  M  WILL 

C  RUN  WITH  REVERSED  DIGITS 

C _ 

JT  =  0 

DO  700  A  =  1  ,  AL> AS 
DO  7°0  P  =  A  » BL  »  FS 
DO  700  C=B*CL,CS 
DO  700  D=C,DL,DS 
DO  7n0  F  =  D  *FL  *  ES 
DO  7on  F=E,FL,FS 

DO  7"0  G  =  F  *GL  *GS 
DO  7n0  H  =  G  *HL  *  HS 
DO  fOO  f  *H  *  I L  #  t  S 

DO  700  J=I,JL*JS 
DO  700  K=J,KL*KS 
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DO  7nn  L=K,LL,LS 
00  7nn  M=L,ML,Ms 

J  T  =  J  T  + 1 
S( JT)=X(M) 

700  CONTINUF 

C _ 

C  COPY  RACK  OUT  OF  THF  SCRATCH  ARRAY 

C 

DO  800  JT=1 »NOPTS 
X  (  J  T  )  =  S  (  J  T ) 

800  CONTINUF 

C _ 

JT  =  0 

00  POO  A=1,AL*AS 
no  900  F  =  A  »  PL  »  RS 

no  900  o=p,cl,C^ 
no  ooo  D=C,DL,DS 

_ no  900  F=D,FL,FS _ 

DO  900  F=F,FL,FS 

no  900  g=f,gl»gs 
no  900  H=G  »HL »HS 
DO  900  I =H *  I L  *  I S 

no  poo  j=i,jl*js 

_ no  900  K=J,KL»KS _ 

DO  900  L=K,LL,LS 

no  pnn  m=l,ml,ms 

JT=JT+1 
Si JT)*Y(M) 

900  CONTINUF 

c _ 

C  COPY  RACK  OUT  OF  THF  SCRATCH  ARRAY 

C 

_ _nO  950  JT= 1  ,  NOPT  S 

Y ( JT  ) =S ( JT ) 

950  CONTINUF 

_ RETURN _ _ _ 

END 

SUBROUTINE  FCT  ERR 

C  FACTORING  ERROR  _  _ _ _ _ _ _  _____  _ 

C 

C  FACTORING  ERROR  IN  FOUR  ID  OR  SORT  ID. 

C _ _ _ 

C  CURRENTLY  TAKEN  IF  A  FACTOR  ABOVE  13  IS  REQUIRED.’  (THE  ARRAYS 

C  ARF  NOT  BIG  ENOUGH  TO  HANDLE  THINGS  APOVF  13.) 

C 

WRITE  (6,loo) 

CALL  FXIT 

100  FORMAT  (  1X,1  SHFACTORTNG  FRROR) _ _ 

RETURN 
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Program  2 

Main  programs  and  subroutines  for  computing  a  two- 
dimensional  Fourier  transform  of  a  digital  matrix  that  is  in 
either  the  distance  or  the  frequency  domain. 

The  primary  program  transforms  a  space  domain  digital 
matrix  into  the  frequency  domain*  then  carries  out  the  inverse 
transform  back  to  the  space  domain. 


The  input 
Format 
Format 
Format 


to  the  program  is 


(5X,  15) 

(5X,f8.3) 

(5X.315) 


input  device 

digital  interval  in  miles 

number  of  rowsj  number  of 
columns!  zero 


Format  (5X*15F4,0) 


input  is  a  continuous  vector 


e,g,  for  the  matrix 


1(11) 

1(12) 

1(13) 

1(21) 

1(22) 

1(23) 

1(31) 

1(32) 

1(33) 

input 

order 

is 

1(22) 

1(23) 

1(21) 

1(32) 

1(31) 

1(12) 

1(13) 

1(11) 

1(33) 


Output  is  in  the  same  order  as  the  input  and  includes 
the  real  and  imaginary  amplitudes*  absolute  amplitude*  power 


and  phase. 


'  * 


. 


C  THIS  PROGRAM  CALCULATES  a  two  DIMENSIONAL  FOURIER  TRANSFORM  USING 

C  AN  ALGORITHM  OF  G00D(1Q58)  AS  MODIFIED  BY  COOLE Y-TUKFY ( 1966 )  AND 

C  GFNTLEMAN-SANDE ( 1966 ) 

c 

C  X(J)  IS  THE  REAL  INP|JT  VFCTOR  IN  SPACE  DOMAIN. 

C _ FOR  COMPUTATION  PROGRAM  USES  X ( J  ) +  1  Y ( J  WHSRE  Y( J)=ntn _ 

C  OUTPUT  RESULTS  ARE  GIVEN  AS  X(J)+IY(J)  IN  FREQUENCY  DOMAIN 

C  N(J,K,0)  ***  ARRAY  OF  DATA  IS  TWO  DIMENSIONAL  WITH  SIDE  J  BY  K. 

C__  NOPTS  ***  NUMBER  OF  DATA  POINTS  ( J*K )  . 

C . ~ . "  "  DELT  *** . ‘ . THE  DIGITIZING  INTERVAL  IN  MILES* 

C 

_ COMMON/DAT/X ( 6000)  ,Y!6000) _ 

COMMON / CONST /N (3 ) * NOPTS 
10  FORMAT  (5X,I5) 

_ 20  F OR MAT  (  5 X  >315  ) 

30  FORMAT  ( 5X , F8 • 3  ) 

35  FORMAT  (5X,I5F4.0) 

36  FORMAT ( 1X,10F13.4) _ _ _ 

45  FORMAT  (1HJ) 

40  FORMAT ( 1HJ>60X > 10HINPUT  DATA) 

4?  FORMAT ( 1 HT  *60X  > 1 QH********** ) 

c;  o  fORMaT  (  1  HT»?*)X  *ftOH*** ************* ******************************** 

•)  ********************************  j 

60  FORMAT  (  IX  >6HDELT  =  >  F8 . 3  >  8X  >  1  8HN  YOlJ  I  ST  FREQUENCY^  >  F8 . 8  ) _ 

70  FORMAT! 1HJ>??X> 15HFREQUENCY  =?*J* >F10.6 > IX > 15HCYCLES  PER  MILE) 

100  FORMAT! 1 H 1 , 49X > 33HTW0  DIMENSIONAL  FOURIER  TRANSFORM) 

110  FORMaX!  1  HT  >4QX  >  3  *****•*•*•*•****•%•  ********** * ^  *********  ) 

120  FORMAT  (  5X  >  1H0»  9X  ,  3 HROw  >  6X  ,  6HC0L(jMN  ,  6X  >  1 OHRF  AL  (  fREO  )  ,  9X > 1 5H I  MAG ' 

1  ary ( FR EQ ) > 10X  >  7HM0DULUS  > 1 3X > 1 OH FULL  POWER  > 13X  >5HPHASF ) 

175  FORMAT  (  4X  ,^H***>QX  >6X  >  ah******  >6X  >  1  oh**********.  qX.1  ah***** 

1  **********,>|  ox  ,  7 m *******,  i  7X  >1  OH**********  >  1  7 X  >  5 h* ****  ) 

130  FORMAT ( 1 X  > I  5  * 6X , I  5  > 6 X  > I  5  * 7X  > 1 PF 1 1 . 4  > 1 1 X  > ] P E ] 1 . 4 > 1  OX , 1 P E 1 1 . 4 > 1  OX > 1 P 
1F11«4,10X,1PE11 «4) _ 

310  FORMAT! 1H1 >45X>41HTW0  DIMENSIONAL  iNVFRSF  FOuRIfR  TRANSFORM) 

FORMAT  (  ASX  >4  1  h******************-***********************  ) 

320  FORMAT ( 1 HL >56X > I 7HRFAL  (SPACF)  PART)  _ 

3  7^  FORMAT  < 1HT  >56X > 1 7H***************** ) 

READ  ! 5  >  1 0 )  INPUT 

RF AD  ( 5  >  30 )  DFLT 

READ  (5*20)  ! N ( J )  ,J  =  1  ,3) 

NOPTS  =  N ( 1  )*N ( 2 ) 

_ REAP  (INPUT >35)  ( X ( J  )  > J=1 >NOPTS  ) _ 

WRITE  (6 >40) 

WR I T  E ( 6  >  42  ) 

NN  =N  (  1  )_ 

NNN=N(2 )  • 

K  =  ] 

_ L  =  0 _ 

DO  80  M=  1  ,NN 
L  =  L  +  N ( ? ) 

_ _ WRITE  (  6  >  36  )  (X(J),J  =  K,L) 

WRITE  (6,45 ) 

K  =  L+ 1 

80  CONTINUF _ 

WRITE  (6 >50) 

FN  =  1  • / ( 2 • *DF  LT  ) 

WR I TF  ( 6  >60  )  DELT,FN 
FP  =  FN/ (FLOAT (NOPTS ) ) 

WRITE  (6 >70)  FP 
DO  SO  J  =  1  , NOPTS 
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V ( J )  =  0.0 

CONT  INI  IF 

CALL  FOUR  MD 

CALL  SORT  MO 

J  =  0 

DO  400  J5=1,N0PTS 

400 

J  =  J+l 

X(J)=X(J)/FLOAT( NOPT  5  ) 

Y ( J) =Y ( J ) /FLOAT (NOPT S  ) 

CONT  INIJF 

WRITE  (6*100) 

WRITE  (6*110) 

C 

WRITE  (6*120) 

WRITE (6 *125) 

J  =  0 

FOURIER  TRANSFORM  ARRAY  IS  WRITTEN  OUT  BY  COLUMNS. 

DO  140  KK= ] *NN 

DO  140  JJ=1 *NNN 

J  —  J+l 

C=X ( J ) 

D= Y ( J ) 

A  PLfeSQRT ( C**2+D**2  > 

IF(J.NE.l)  GO  TO  79? 

POWER =AMPL*AMPL 

29? 

29? 

GO  TO  ?  9 7 

POWFR=? • 0*AMPL*AMPL 

IF (C.LF. 0.001 )  GO  TO  ?10 

PTAN=ATAN2 ( D*C ) 

P  H  A  S  E  = 1 8  0  •  0  *  F  T  AN/7 • 14159 

GO  TO  240 

210 

240 

12? 

PHA ^ F  =  90 .0 

IF  (  (NNN  +  1  ) /?-JJ  )  121*122*12? 

JR= J J-l 

124 

IF  ( ( NM+1 ) /?-KK )  ]?7*1?4*1?4 

kg=kk-i 

GO  TO  127 

123 

kc=kk-nn-i 

GO  TO  127 

121 

IF  ( (NN+l)/2-KK)  126*128*178 

128 

K  C  =  K  K  - 1 

JR  =J J-NNN-1 

GO  TO  127 

126 

kc=kk-nn-i 

127 

JR  =J J-NNN-1 

WRlTF  (6*170)  J,JR,Kc,X( J) *Y( J) ,aMPL,POwfR*PhaSF 

140 

CONTINUE 

J  =  0 

DO  250  J 7  =  1  *  NOP T  7 

C 

J  =  J  +  1 

REPLACE  FOURIFR  COEFFICIENTS  BY  COMPLEX  CONJuGATF. 

F= Y ( J ) 

25  o 

Y( J)=-F 

CONTINUE 

CALL  FOUR  MD 

C 

CALL  SORT  MD 

J  =  0 

DO  J4=  1  ,  NOPT S 

j=j+T 

TAKE  COMPLEX  CONJuGATF. 

GG=Y ( J ) 
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V { J ) =-GG 
35o  CONTINIJF 

WRITF  (6*310) 

WRITE  (6*315) 

R  I  TF  (6*370) 

_  WRTTF  (6*o?3) _ 

K  =  1 
L  =  0 

DO  ?60^  M  =  I  *  NN_ 

L=L+N ( ? 7 

WR I T  F ( 6  *  36 )  (X(J)*J  =  K*L) 

WR  I  TF  (  6  *45  ) _ _ 

K  =  L  +  1 

760  CONTINUE 
. .  WR I TF ( 6  *261  ) 

261  FORMAT ( 1H1 *55X *  2 1 H I  MAG  I  NARY ( SPACE  )  PART) 
W  R  I  T  F  (  6  *  2  6  2  ) 

767  FORMAT  (  ihT*55X*?1H*********************) 

K=  1 
L  =  0 

DO  763  M=1 »NNN 
L  =  L+N ( 1  ) 

WR I T  F ( 6  *  36 )  (Y(J),J=K,L) 

WR I T  F ( 6  *  45  ) _ 

K  =  L+ 1 

263  CONTINUE 
. STOP 


END 
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This  program  is  a  short  version  of  the  general  main 
program  and  computes  the  distance  domain  transform  of  a 
two-dimensional  frequency  domain,  zero  phase  filter. 

Input  format  is  the  same  as  for  the  general  program 
and  output  is  the  distance  domain  amplitude. 


C  THIS  PROGRAM  CALCULATES  A  TWO  D I MpNS I ON A L  fOuRIFR  TRANSFORM  USING 

C  AN  ALGORITHM  OF  GOOD(1958)  AS  MODIFIED  BY  COOLE Y-TUKEY ( 1 966 )  AND 

C  GFNTLFMAN-SANDF ( 1966 ) 

C 

C  X(J)  IS  THE  RFAL  ZERO  PHASE  INPUT  VECTOR  IN  THE  FREQUENCY  DOMAIN 

C _ N(J,K,0)  ***  ARRAY  OF  DATA  IS  TWO  DIMENSIONAL  WTTH  SIDE  J  BY  K. 

C  NOPTS  ***  NUMBER  Op  DATA  POINTS  (J*K). 

C  DFLT  ***  THE  DIGITIZING  INTERVAL  IN  MILES. 

C 


COMMON/ DAT /X ( 600n ) ,  Y ( 6000 ) 
COMMON/CONST /N ( 3 ) , NOPJS 


10  FORMAT  (5X,I5) _ _ _ _ 

20  FORMAT  (5X,3I5) 

30  FORMAT  (5X,F8.3) 

35  FORMAT  (5X,15F4.0) _ _ _ 

36  FO~RMAT(1X,10E13.4) 

45  FORMAT  (1HJ) 

40  FORMAT ( 1HJ,60X,10HINPUT  DATA) _ 

42  FORMAT ( 1 HT,60X, 1  OH*** ******* ) 

SO  FORMAT ( 1 HT  *  76X , 80H**** *********************************** ********* 


1  ******** * * * * * *  * * * *************** j 


60  FORMAT ( 1 X ,6HDELT  =  ,  F8 . 3 , 8X , 1 8HNYQU I  ST  FRFQUENCY= * F8 . 3 ) 

70  FORMAT ( 1HJ*?2X * 15HFREQUENCY  =  2* J* *F 10. 6  ,  IX  * 15HC YCLES  PER  MILE) 
RF  AD  (5,10)  INPUT 


READ  (5,30)  DFLT 
READ  (5,?0)  ( N ( J ) 

NOPTS  =  N ( 1)*N ( 2 ) 


J=I  ,3  ) 


R  F  A  D  (INPUT, 35)  (  X ( J ), J= 1 , NOPTS ) 


WRITE  (6,40) 
WRTTF(6 ,42 ) 


NN =N ( 1 ) 


NNN=N ( 2 ) 


K=  1  . 

L  =  0 

DO  80  M  = 1  , N N 
L  =  L  +  N ( 2  ) 


WRITE  (6,36)  ( X ( J)  ,  J  =  K  ,L ) 

WRITE  (6,45) 


K  =  L  +  I 

80  CONTINUE 

WRITE  (6,50) 

FN  =  l./(2.*0FLT) 

'•'RITE  (6,60)  DFLT,FN 
FP  =  FN/ (FLOAT (NOPTS ) ) 
W R  T TF  (6,70)  F P 
DO  90  Jel, NOPTS 
Y ( J  )  =  0.0 

90  CONTINUE 


CALL  FOUR  MD 
CALL  SORT  MD 

K  =  1 . 

L  =  0 

DO  260  M=1,NN 
L  =  L+N ( 2  ) _ 

WRITF(6 ,36 )  ( X ( J )  , J  =  K  ,L ) 

WR I T  F ( 6 , 45 ) 

K  =  L+ 1 

260  CONTINUE 
STOP 
END 
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Subroutines  for  the  two-dimensional  Fast  Fourier 
transform  program. 


subroutine  four  MD 

c 

C  TWO-DIMFNs ional  four  I FR  transform 

c 

COMMON/ OAT /X ( 600^) . Y ( 6000) 

_ COMMON/CONST/N  (  3  )  ,NOPTS _ _ 

c 

C  NEFD  SUBROUTINE  SORT  MD  TO  UNSCAMBLE  FOURIER  COEFFICIENTS 

C  _ • _ _ _ _ _ 

REAL  II i 12*13* 14* 15 
INTFGFR  P * PMAX * PROD  *  SC  *U*V 

C _ REAL  I  ( PMAX )  9  R  (PMAX>*  C  (PMAX*PMAX)*  S  (PMAX*PMAX>* _ 

C  .A  ( (PMAX-l )**2+l > »  B  ( ( PMAX-1 ) **2+1 > 

RFAL  I  (19) »  R  (1Q)»  C  ( 19*19) *  S  (19, 19)?  A  (325)*  B  (325) 

C 

C  . TH  IS  ‘SUBROUT  INE  CAUSES  xTJl . J?  .  .  .  )  +  T  Y(  J 1  J2  .  .  .  )  TO  BE  REPLACED 

C  BY  THEIR  FOURIER  TRANSFORM  WHEN  X+(F1  F2  ...)+lY+(Fl  F2  ...)= 

C _ SUM  T1=0*N], -10F  SUM  T2=0*N2-I0F  ...  X(T1  T3  «..)PIY(T1  T 2  ...) 

C  F(-F1.T1/N1 ) .E(“F?.T2/N2 )  ... 

C  WHFRE  J J  =  T J+l =F J+l  AND  NJ  =  N(J) 

C 

C  N ( K+l ) =0  INDICATES  THAT  THFRE  ARE  ONLY  K  DIMENSIONS 

C  X ( J 1  J2  ...)  IS  STORED  AT  TK.N(K~1  ...  .N]+  +T3 • N? • N 1+T2 • N 1+T 1 


C  SFE  COMMENT  IN  GR  ID  FT 

C  M/SC  PLAYS  THE  SAME  ROLE  HERE  AS  DOES  M  IN  GR  ID  FT.  SC  IS  USED  TO 

C  »  • S  T  EP  »  »  OVER  THE  OTHER  DIMENS I  ON  S.  EACH  DIMENSI ON  I c  [  >0N F  I ND E P EN D F N 

C 

P  M  A  X  =  1  9 

C _ l 

TW0PI=6 .283185307 
PR0D= 1 
ND=  1 

"idn  CONT INUF 

PR0D=PR0D*N ( ND ) 

_ ND  =  ND+1 _ 

IF  (N(ND).GT.O)  GO  TO  100 

ND  =  1 

M=PROD 

SC  =  PROD . 

200  CONT I NUF 

_ S C  =  S C / N ( ND  ) _ 

ND=ND+1 
300  CONTINUE 

I F  (M/SC.NE. (M/SC/4 )*4>  GO  TO  600 
MR  =M 
M  =  M/ A 

DO  500  J  =  1  * M 


ARG=TW0PI*FL0AT( ( j-l ) /SC ) /FLOAT (MR /SC ) 

C1=C0S ( ARG) 

ST=S I N ( ARG ) 

- 1- 

C  2  =  COS ( 2 • 6* ARG ) 

S2=S IN ( 2 • 0* ARG ) 

C3=C0S ( 3 • 0*ARG ) 

S3=S IN ( 3.0* ARG ) 

DO  A^o  K  =MR  9 PROD  *  MR 

| 

J1 = J+K-MR 

J  2  =  J 1  +  M 

mnmfr  1,1  m.imu  Jim  «|C 

J? = J7+M 

JA  = J  3+M 

.  ; 
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R 1 =  X ( J 1  )+X( J7) 

R2  =  X ( J1 ) —X ( ) 

I1=Y( J1 )+Y( J7 ) 

I  2  =  Y ( J 1  ) - Y ( J?  ) 

R7  =  X ( J2 )+X ( J4 ) 

R4=X(J?)-X( J4) _ 

I 7  =Y ( J2 )+Y( J4  ) 

I 4= Y ( J2 ) -Y ( J4 ) 

X ( J 1 ) =R1+R3 
Y ( J 1  ) =11+13  ' 

X( J2)=(R2+I4)*Cl+( I?-R4)*S1 

Y  (  J ?  )  =  (  I?-R4)*C1-(R?  +  I4)*.S1 _ 

X ( J7) =( R1-R3 )*C7+( I 1-I7)*S2 
Y ( J  3 )  =  (  Il-T3)*C?-(Rl-R?)*S? 

_ _X  (  J4  1  =  (JR  2  ~  I4)*C3+(  I  2  +  R  4  )  *  S  7 

Y( J4)  =  (  I  2  +  R  4 ) *  C3~ ( R?-I4 ) *S  7 
400  CONTINUE 

500  CONTINUE _ 

GO  TO  300 
600  CONTINUE 

_  IF  (M/S C.NE. (M/SC/7 ) *7  )  G 0  T O  o o n 

MR  =  M 

M  =  M/2 

DO  800  J  =  1  ,  ,M _ 

ARG  =  TW0P  T  *EL0 AT  (  (  J-].  )  /SC  ) /FLOAT  (  MR /SC  ) 
Cl =COS (  ARG  ) 

S 1  =  S  I N  ( A  RG1 _ 

DO  700  K=MR,PROD,MR 
J1 =J+K-^R 

J2  = J 1+M _ 

R  1  =X ( J 1 ) +X ( J 7  ) 

R2  =  X( J1 ) -X ( J2  ) 

Il=Y(Jl)+Y(J?) 

I  2  =  Y ( J1  ) — Y ( J2 ) 

X( J1 ) =R1 

Y  (  J 1  )  =  I  1 _ 

X ( J7 ) =R2*C1+I ?*S1 
Y ( J7 ) =1 2*C1-R2*S1 
700  CONTINUE 
800  CONTINUE 
GO  TO  600 

900  CONTINUF _ 

I E  (M/SC. NE. (M/SC/3 )*7  )  GO  TO  1700 
MR  =M 
M  =  M  /  3 

A] =  COS  J T WOP  I  /  7  . 0  ) 

R1=S IN (TWOP 1/3.0) 

A  2  =  COS ( 2 . Q*TV70P I /7 . n  ) _ 

R2=S IN ( 2 • 0*TWOP 1/7.0) 

DO  1 100  J=1 »M 

A R G =  TWOP I *FLO AT (  (J-1  ) /SC ) /FLOAT ( MR /SC ) 

C21 =C09 ( ARG ) 

S  2 1 =  S I N ( ARG ) 

C27=C7] *A1— S7] *B1 _ 

S22=C21*RI +S2 1  *  A  1 
C27=C21*A2-S21*B2 

_ _ S2  7  =  C21*B2  +  S21*A2  _ 

c  7 i =  CO  S ( 2 . 0  * ARG) 

S  7  l  =  s  I N  (  2  •  n  *  A  R  G  ) 

C72=C31*A2-S71 *B7 
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S37=C31*B7+SR  1  *A7 
C33=C?1  *A1  -S31  *FU 
S3R=C31*R1+S31  *A1 
DO  inon  K=MR,PROD,MR 
J] =J+K-MR 
J  7  =  J  1 +M  


J0=J2+M 
R 1 =X ( J1  ) 
1 1  =  Y  (  J 1  ) 


R?=X ( J? ) 
I7  =  Y( J7  ) 
R?  =  y ( JR  ) 


I  3  =  Y ( J3  ) 

X ( J1 ) =R1+R2+R3 
Y( J1  )  =  I1  + 12+  13 

xTj?  )  =R  1  *C?  1 + 

Y ( J2 ) =T ] *C?1 -R1 *S?1 +1 7*C27-R7*S7?+I 3*C73-R7*S23 

Y ( J3  )  =  1 l*C31~Rl*S31  +  1 2*C32~R2*532+I 3*C33-R3*S33 
1  O0O  CONTINUE 
1  1  00  CON  T  I  NI  IF 
GO  TO  900 
1200  CONTTNUF 

IF  (M/SC.NE. ( M/SC/5 )*5 )  GO  TO  1500 


MR  =M 
M  =  M/  R 

Al=rQF ( TWOP 1/5*0) 

01 «S IN ( TWOP 1/5.0) 

A 2  =COS ( 2 • 0*TW0P 1/5.0) 
P?=S IN ( 7 .o^TWOP 1/5.0) 


A  3  =C0F ( 3 .0*TW0P I /^ . 0 ) 
B?=S IN ( 3 • 0*TWOP 1/5.0) 

A4=ro<;  ( 4.0* twop  I  /p  .  o  ) 


R4=S in ( 4.0* TWOP 1/5.0) 

DO  1400  J  =  1  *  M 

ARG=TW0PI*FL0AT ( ( j-l ) /SC ) /FLOAT (MR /sc ) 


C2 1 =COS ( ARG ) 

S71 =S I N ( ARG ) 
C7?=C?1 »AlrS21»B! 
S22«C21*B 1  +  S  7 1  *  A  1 
C?7=C71*A?-S71 *B7 
S?3=C71*R2  +  S71 * A  7 


C74=C21*A3-S71*B5 
S24=C?1*B3+S21 *  A  3 
C25=C?1*A4-S71*B4 
S75=C71*B4+S21*A4 
C  3 1 =  C  0  S ( 2.0*ARG ) 
SR1=5IN ( 2.0*ARG ) 


C57=C^1*A2-S31*BR 
S37=C3I *R7+S3I *A7 
C3R=C31*A4-S31 *B4 
S33=C31*R4+S31*A4 
C34=C31*A1-S31*B1 
534=C31*R1+S31*A1 


C?5=C31*A3-S31 *B^ 
5  3  5  =  C  I  *B3-f5  3]*A3 
C41 =COS ( 3 . 0*ARG ) 
S41*SIN  (  3.0*  ARC- ) 
C47=C41*A3-S41  *B^> 
S4?=C41*R3+S41*A3 
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r  a#  r  a p 4* *  *  f  £*);xc*£ 


C43=C41*A] -54] *B1 
S43=C41*B1+S41*A1 
C44=C41*A4-S41 *B4 
S44  =  C41*R4  +  S41 * A  4 
C45=C41*A2-S41 *B2 
S45=C41*R?+S41  *A2 

C5 ] =COS ( 4 • 0* ARG ) 

S51 =S I N ( 4 • 0  *  A  R  G ) 
C5?=C51»A4-S5 1*B4 

552=C51*B4+S5] *A4 
C53=C5  1*A3-S5  1  *B  ^ 

^^  =  (-5  1*R^  +  .SM  *A* 

C54=C51*A2-55 1 *B2 
S54=C51*B2+S51*A2 
C55=C51*A1-S51 *Bl 

S55=C51*B1+S51 *A1 
DO  1300  K=MR,PROD,MR 
J1=J+K-MR _ 

J2=J1+M 
J3= J2+M 


J4-J3+M 

J5=J4+M 
R 1 =X ( J1  ) 
I] =V( J]  ) 

R  2  =  X  (  J  2  ) 
I  2  =  Y ( J2  ) 
R3=X ( J3 ) 

I  3  —  Y  (  J  3  ) 
P4=X ( J4 ) 
1 4  =  v  (  J  4  ) 

R  5  =  X ( J5 ) 
I  5  =  Y ( J5 ) 


X  (  J1  )  -R J  +  R2  +  R.3  +  R4  +  R5 


Y  (  J 1  )  = 

X ( J? ) =R1 *C21  + 
.R5*C 25+15*525 


Y ( J? ) =1 1 *C2 1 “R 1 *S2 1+ I 2*C22“R2*S2 2+1 3*C 2 3“R3*S2 3+1 4*C24“R4* 524+ 
I5*C25-R5*S25 
X  (  J3 ) =R 1*C3 1+ I 1*S3 


•R5*C35+ I 5*S3  5 

Y  (  J3  )  =  1  l*C31-Rl  *531  +I?*C32-R2*S32+I3*C33“R3*S33+I4*C34“R4*S34i 
. I5*C35-R5*S35 


X ( J4 ) =R1 *C4 1 + I l *S41 +R2*C42+I 2*S42+R3*C43+I 5*S43+R4*C44+ I 4*S44+ 
. R5+C43+ I  5*545 

Y  (  J4  )  =1  1  *C4 1~R  1*541  +  1  2*C42~R2*S42+ I  3*C43~R3*S43+I4*C44‘“R4*S44  + 

• I 5*C45-R5*S45 ~ 

X  (  J5 ) =Rl *C51 +1 1*S51+R2*C52+I2*S52+R3*C53+I 3*S53+R4*C54+I4*S54+ 
»  R  5 *C 55+15*5  55 _ 

Y( J5 ) =11 *C51-Rl*S51+I 2*C 5 2-R2*S52+I 3*C 5 3-R3*S 53+ I4*C54-R4*S5 4+ 
.  I  5*C55-R5*555 
1300  CO NT  T N U F 
1400  CONTINUE 

GO  TO  1200 

1500  CONTINUE _ 

IF  (M/SC.LE.l)  GO  TO  2600 
DO  1600  J=?,PMAX 
P  =  J 

T F  ( M/SC • FQ • ( M /SC/P ) *P )  GO  TO  1700 
16(30  CONTINUE 

CALL  FCT  FRR 


A  *  q  p  *  [  =  p_a2_ _ 

{ 

(r  *r.  M''I?=r? 
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C  *  W,  +  C  i*  f  ■'!=-  A  ‘P 
V  r  ’-r"1#r?^=a-0 

r  r  5  +  r  1  r  a  ;  -  ’ 

■  .roc,  ^w-  onp  r 

••-••<+'.  =  rt  .. 

M+PL= AL 

(  f  W )  X  =  { 

(JLUY-JLt 

(  SL>  vs<u 

(  PL )  X  -  CC1 
( P L )v  =  P I 
(  AL ) X  =  AO 

• 

( PL) YaPJ 
’  +  .  ’4  +  <;  •+  fP*  (  rL  )  V 

'  4-  A  I  c  *  +  7!+  r  T=  f  rL  )  V 

|  4.  r  r  '  f  {  L  ^  y 

P *  M  +  jO*  ir  . 

S>#P  !  . 

f  -  >  r  t  +  ■  -  ■  ■  r  9  -  (  p  ) 

1  I  +•  •'O-*  *9  • 

’ , : - < .  p ■>*<:  t  +  r  p p *  r  Vi- r  p  1*  r  I  =  {  p L )  Y 

Pn#?  :u:^V  *  I  • 

f  4  •  '  r  1 4-  r  10  *  f  =  (  L  ) 

I  +PA1*-'1. 

'  '  A  r  ;  ;  i  -  ( 

-1  .?*  P  -  A*V'  P  !  . 

a.  -  ?  ff  14  1  c  >  4-r  1  I  +<  p  '  a  4-  r  p.-“  *  r  I  +• r  P"'>*  ■  =  (  PL  )  X 

P  V*  *_£  • 

■^?q..vsA«  ■  T  • 

1 !  U- 1  TMtOD  OOA 

■ 

'  r  (r.1  I.VVM  1\ 

.  c  - 

l*5l 

(n  (  \ 1  \ '  .  .1P\  )  IT 

qq  j  in*  J  J  A  *) 


17  oo 

CONTINUE 

J T  =  (  P-1  )  **2-+-l 

DO  1800  J= 1 9  JT 

ARG=TWOP I*FLOAT ( J— 1 ) /FLOAT ( P ) 

A ( J ) =C0S ( ARG) 

R ( J ) =  S I N ( ARG) 

180n 

CONTINUE 

MR  =M 

M  =  M  /  P 

DO  2500  J  —  1 9  M 

ARG  =  TWOP I*FLOAT  (  ( j-l )  /SC ) /FLOAT ( MR/SC ) 

DO  2000  U=1 9P 

C ( U  9 1 )=COS( FLOAT (u-l  ) *ARG ) 
c((|,l  )  =S  IN  (  FLOAT  (  U-l  )*ARG) 

DO  1  900  V  =  2  9  P 

JT= (U-l  ) * ( V-l  )  +  1 

C(l)9V)=C(U9l)*A(JT)-S(U9l  )*B(  JT) 

S( U9V) =C (U» 1 )*R ( JT )+S ( U  9 1 ) *A ( JT ) 

190o 

2000 

CONTINUE 

CONTINUE 

DO  2400  K«MRtPROD,MR 

DO  7100  U  —  1 9  P 

JT  =  J  +  K-MR-f  (  U-l  )  *M 

R ( U ) =X ( JT ) 

2100 

I (U)=Y( JT) 

CONTINUF 

DO  2300  U= 1  , P 

XT  =  0*0 

YT  =  0,0 

DO  2200  V  = 1 9  P 

2  2.00 

XT  =  XT+R  (  V  )  * C  (  U  9  V  )  4- 1  (  V  )  * S  (  U  9  V  ) 

Y  T  =  Y  T  +  I  (V)*C(U9V)-R  (  V  )  *  S  ( IJ  9  V  ) 

CONTINUF 

JT  = J+K-MR+ ( U“1 )*M 

X ( JT ) =X  T 

Y ( JT ) = Y  T 

2300 
2400 
2  500 

CONTINUE 

CONTINUE 

CONTINUE 

GO  TO  1500 

2600 

CONTINUE 

IF  (N(ND).GT.O)  GO  TO  700 

C 

c 

c 

RETURN 

END 

S 1 IBROUT INF  SORT  MR 

TWO  DIMENSIONAL  FOURIER  SORT  TO  IJNSCRAMRLE  THE  EOijRIER  COEFFICIENT 

c 

COMMON/ DAT /X ( 6OO0 ) ,Y ( 6000 ) 

COMMON/CONST/N ( 3 ) ,NOPTS 

RFAL  S (6000 ) 

INTEGER  ND  9  JT  9 I T 

INTEGER  D0,SC9LIM( 19) 9 STEP ( 19) ,P,PMAX 

1 

INTEGER  A9B9C9D9E9F9G9H9I 9J9K9L9M9Q9R9T  9U9V9W9AL9RL9CL9DL9EL9EL9GL 

,9HL9lL9JL9KL9LL,ML9QL9RL,TL  9  UL  9 VL  9WL ,  A S , RS  9 C S 9 DS 9 E S , F S 9 Gs  9 HS  9 I S  9 J 

,S»KS*LS  9  MS  *  OS  *  RS  » TS»US»VS»WS 


c 

c 

c 


SEE  ALL  THF  COMMENTS  IN  GR  ID  FS 


J  • 


{  ’  )  r  tQ  J^\  (  f  -L  )  f  AUJ  -1*  I  I  a 

c  r.9  \ )  ?m  = (  l  )  '• 


.  rst  ?■  nr  o  i 

\(V\I  r-L))TA  -T=0'i^ 

.  r -  1  r  t<; 

(  >1 A  r-’M  T  ■  H)  «  T  ?^{  r,'  )  » 

t:,c-y  roor  CV7 

•  +  ( r-v ) * ( 

f  TL  >  >j  f  r  ,  It )  -  -(  T  i  ;  *  *  (  r  .  )  ->s(  Vt  '*)  -> 

[  )  •  l  *  p+i  T  <  r  f  )  -  I l  V.  ) 

}V  T  ")  "ors 

.  vC,(i  =  r.nA\r  f)^ 

.  r  =i  r f-  Of1 

(  j-tij+S  -  '+Lslt 

(  [l )  v  =_(  1 1 )  P 
"  (  t  l  )  y  *=  (  U  )  T 

^UfUT^o-)  nlfs 
.  f-  n  • 

.  -- 

n.n=TY 

■(  \n  1  -  {  »  i )  "V  (  ‘  )  -  +TY  =  1X 

<  .  )  .  r  v)  -(Vr'l  *(V)  I-t-TY*TY 

•J'  IT  '  ^ 

* (  r-n) +w  -oi+t= rt 

T Yt ( TL  )  X 

^M|/l T  THOl  nOAS 

lUHfTMOD  ''oac 

'_p  .  t  >.  (  nv  )  ) 

n:  rqop  iq  ninqit  ? 

'  At  Y  .  f  1 '  r  a  )  v  m  a  n  \  ■'YfA't 

*»  T  ,  ff)  XT’’  ">\  D 

(  n rn a  >  ->  j/ 


T  T  •  7  L  «  ' 

.  . 

. ■ .  -Vn  T 

•  •  »  »  •:*.  •  •  •  *  •  ! ,'  f  ,JL  f  !  f  J1-  *  • 

. • 


• :  ?t  ■:'  n  r  jja  '  ' 1 


FQU I VALENCE  ( AS  9  STEP ( 1 >  )  , ( BS 9  STEP ( 2 >  >  ,  ( CS 9 STFP ( 3  )  ) 9 ( DS 9 STFP ( 4  )  )  , 

( FS,STFP ( S )  )  , ( FS  * STEP ( A )  ) » (GS,STFP ( 7 )  )  » ( HS , ST FP ( 8 )  )  ,  (  I  S  *  S  T  F  P ( Q  )  )  , 

( JS*STFP ( TO )  ) » ( KS,STFP(  1  ]  )  )  * (LS*STFP ( ] ?  )  )  * (MS  ,STEP( 1? )  ) * ( QS,STFP< 1 
4 )  ) 9 (RS  9  STEP (  15 )  >  » ( TS  9  STEP ( 16 )  > » (US  >STFP ( 17 )  )  , ( VS  9  STEP ( 18 )  )  9 ( WS*ST 
FP ( ] 9) ) 


1  vnLLHU.  V  L_  J  L-  I  \  l  )  /  *  \  i—  ™  i—  1  •  1  \  ft  1  ?  1  LL  ?LiH  \  O'  /  *  l  L/L  !  L  1  1  l  H  J  )  * 

.  (  F  L  9  L  I M  (  5  )  )  9  (  FL  9  L  T  M ( 6  )  )  9  ( GL  9  L  I M  (  7  )  )  9 ( HL  9  L I M ( S  )  )  ,  (  I  L  9  L  I M  (  9  )  )  9 

. ( JL  9L IM ( 10 )  )  9 ( KL  9L IM (  n )  ) 9 ( LL9LIM( 1 2  )  )  ,  (ML  9LIM( 13 )  )  9 

•  ( QL  9 L IM ( 1 4 )  ) 9 ( RL  9 L I M (  1 5 )  ) 9 ( T  L  9  L I M ( 1 6 )  )  9 ( UL  9  L I M ( 1 7 )  ) , ( VL  9  L  T  M ( 1 R )  ) 9 

C 

C 

. (WL 9LIM( 19)  ) 

DIGIT  RFVFRSFR  FOR  USF  WITH  GR  MD  FT. 

’O  0  uj 

WE  REVERSE  THE  DIGITS  INSIDE  EACH  DIMENSION.  WE  REALLY  DO  USE 

RANGES  OF  0-(P-l)*M  for  the  do  loops,  sc  is  the  factor  used  to 

C 

C 

' ST  FP 1  OVER  PREVIOUS  DIMENSIONS 

PM AX= 1 9 

DO=  1  9 

ND  =  1 

SC  =  1 

TOO 

200 

CONTINUE 

M=N (ND) 

CONT INUF 

C 

IF  (M.NF. (M/4)*4)  GO  TO  700 

M  =  m/4 

C 

C 

0  9M*SC  9  7*M*SC 9  3*M*SC 

LIM(DO) =  3*M*SC 

STEP ( DO ) =M*SC 

D0=D0-1 

GO  TO  200 

300 

CONT INUF 

IF  (M.LF.l)  GO  TO  600 

DO  400  JT  =  2  9 PMAX 

4nP 

P  =  JT 

IF  (M.FQ. (M/P ) *P )  GO  TO  500 

CONTINUE 

500 

CALL  FCT  ERR 

CONTINUE 

m-m/P 

C 

c 

c 

°  9  M*SC 9  2*M*SC »  ...  , (P-1)*M*SC 

LIM(DO)  =  ( P  —  1 )*M*SC 

STEP ( DO ) =  M  *  S  C 

D0=D0-1 

C 

6  on 

GO  TO  300 

CONTINUE 

C 

C 

TEST  TO  SEE  IF  ANOTHER  DIMENSION.  GO  BACK  AFTER  SETTING  SC 

IF  SO. 

S  C  =  S  C  *  N ( ND ) 

ND=ND+1 

IF  (N(ND).GT.O)  GO  TO  100 

DO  700  J T  = 1 , D 0 

700 

LIM( JT) =0 

STEP ( JT ) =1 

CONT INUF 

}  ♦  {  (  r 
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4\V-M 
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__X.V'q.  0  =  TL  (}  o  ’ 
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OP  '  M  r  -  0)  -T  (  om  m  i  i 

op*n»*  <oa  jq^To 

I-JTfrr  _ 

•n^TTHOO 

.  10’  o  ■  q^WtOi-'A  31  -130  OT  TP  3T 

r  t  (  (  o.  to.  (  nn )  ;m  31  . 

.  r-TL  r^v  or 
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r  r  r  r .  r>  r  n  f>  r  Oi 


JT  =  n 

DO  800  A=0»AL»AS 
DO  800  B=0,RL»PS 
DO  800  C=0*CL,CS 
DO  8 nO  D  =  0  *DL  *  DS 

_ DO  800  F=Q»EL»FS _ _ 

DO  800  F=0*FL*FS 
DO  800  G  =  0  9 GL  »  FS 

_ _ DO  8  0 0  H  =  0  9  HL  » HS 

DO  800  I»0*ILfIS 
DO  800  J  =  0  9  JL  *  JS 

_ DO  8^0  K=n,KL»KS _ 

DO  800  L=0*LL*LS 
DO  800  M  =  0 ,ML  9 MS 
DO  800  Q  =  0  »QL  »QS 
DO  800  R  =  0  »RL  *  RS 
DO  800  T*0,TL*TS 

_ DO  800  IJ  =  0  9UL  »  US _ 

DO  8 CO  V=0  9  VL  9  VS 
DO  8 00  W  =  0 9  WL 9  WS 

. . . JTgJT+1 

I  T  =A+B+C+D+E+F+G+H+I+J+K+L+M+Q+R+t+i  i+\/+'*,+  1 
S ( JT ) =X (  IT) 

8QQ  CONTINUE _ 

DO  Boo  J T  =  1 9  SC 
X( JT)=S( JT) 

9  00  CONTINUE _ _ _  _ __ _ 

C 


JT  =  0 


DO 

950 

c 

11 

<r 

9 

AL 

AS 

DO 

080 

R  =0 

9 

RL 

BS 

DO 

950 

C  =  0 

9 

CL 

CS 

DO 

950 

D  =  0 

9 

DL 

DS 

DO 

950 

c 

11 

UJ 

9 

EL 

Es 

DO 

950 

F  =  0 

9 

FL 

FS 

DO 

Q50 

G  =  0 

9 

GL 

FS 

DO 

950 

H  =  0 

9  HL 

9  HS 

DO 

950 

1=0 

9  IL 

9  IS 

DO 

980 

J  =  0 

9  JL 

9  JS 

DO 

980 

K  =0 

9KL 

9KS 

DO 

980 

L  =  0 

♦  LL 

9  L  S 

DO 

950 

M  =  0 

*  ML 

9  MS 

DO 

950 

0  =  0 

*QL 

9  Q  S 

DO 

950 

R  =  0 

9  RL 

9  R  S 

DO 

950 

T  =  0 

9  TL 

9  TS 

DO 

980 

U  =  0 

9  UL 

9  US 

DO 

980 

V=  0 

9  VL 

9  VS 

DO 

980 

W  =  0 

9  WL 

9  WS 

JT  =JT  +  1 

I  T  =  A  +  B  +  C  +  D+E  +  F+  G  +  H+  I  +  J+K  +  L  +  M+O  +  R  +  t  +  ( i+\/-f w+ 1 
s ( JT ) =Y (  IT ) 
oc-r  COR T  INI  T 


C 

_ DO  975  J T  =  1  9 SC 

’  V ( JT ) =S ( JT ) 

978  CONTINUE 

__  RETURN  _ _ 

END 

SUBROUTINE  FCT  ERR 
C  FACTORING  ERROR 
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C  FACTORING  ERROR  IN  GR  ID  OR  MD  FT  OR  FS. 

C 

C  CURRENTLY  TAKEN  IF  A  FACTOR  ABOVE  19  IS  REQUIRED.  (THE 

C  ARE  NOT  RIG  ENOUGH  TO  HANDLE  THINGS  ABOVE  IQ.) 

C _ 

WRITE  (6*100) 

100  FORMAT  ( IX  ,1 SHFACTORING  ERROR) 

CALL  EXIT 

RETURN 

END 
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Program  3 

This  program  Is  a  package  of  Integrated  subroutines 
that  will  carry  out  all  the  filtering  and  mapping  routines 
required  In  the  preparation  of  the  symbolically  contoured 
maps  used  in  this  thesis.  Maps  are  input  as  a  continuous 
digital  vector  and  may  be  either  on  cards  or  on  tape.  The 
remainder  of  the  input  is  a  series  of  cards  controlling  both 
the  operations  on  the  maps  and  the  form  of  the  output. 

Operation  control  cards  are  in  the  form  of  a  sub¬ 
routine  name  and  one  to  five  arguments.  Format  (9X,  A4, 11X,  51^-) 
Operational  control  cards  are  as  follows: 

SIZE  args(l)  args(2) 

Defines  the  size  of  the  map,  number  of  rows  and 
number  of  columns. 

CARDS  args(l) 

Defines  -the  input  unit. 

TITLE 

The  two  following  cards  contain  the  title  of  the  map. 

SYMBOL  args(l) 

Number  of  levels  of  contour  resolution  followed  by 
single  card  with  symbol  list. 

LIMITS  args ( 1 ) 

Number  of  specified  contour  values  followed  by  cards 
with  contour  limits  and  symbols. 


' 

i 


, 


FILTER 
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args(l)  args (2) 


Specifies  size  of  spatial  filter  followed  by  cards  with 
filter  values.  Format  (10F8.5) 

COMMENT  args(l) 

The  following  number  of  cards  appear  in  the  output  as 
a  comment. 

SEGMENT  args(l)  args(2)  args(3)  args (4)  args (5) 

The  numeric  map  in  core  is  segmented  according  to 
specified  rows  and  columns  and  written  on  a  specified  logical 
unit. 

GETNUMERIC  args(l) 

A  numeric  map  is  read  into  core  from  logical  unit. 
CONVOLVE  args(l) 

The  numeric  map  currently  in  core  is  convolved  with  the 
filter  and  is  written  out  on  specified  logical  unit. 

AUTO 


The  current  map  is  symbolically  plotted  according  to  the 
levels  and  symbols  previously  specified  by  "SYMBOL". 

GRAPH 

Plots  the  current  map  according  to  the  values  specified 
in  "LIMITS". 

CONTOUR  args(l) 

The  current  alphabetic  map  is  contoured  and  written  out 
on  the  specified  logical  unit. 

GET ALPHABETIC  args ( 1 ) 

An  alphabetic  map  is  read  from  specified  unit. 

PRINT  args (l ) 

The  alphabetic  map  currently  in  core  is  automatically 
segmented  where  necessary  and  the  specified  number  of  prints 
are  written  out. 


. 
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SPREAD 


The  current  alphabetic  map  Is  converted  to  a  one-to-one 
scale,  segmented  where  necessary,  and  prlnted0 


PUT ALPH AEETI C  args(l) 


Writes  the  current  alphabetic  map  on  specified  logical 
unit. 

PUTNUMERIC  args(l) 


Writes  the  current  numeric  map  on  specified  logical 
unit, 

ISOPAK  args(l)  and  args(2) 

Computes  and  reads  into  core  the  isopach  values  between 
the  maps  on  the  specified  logical  units. 

CHUNK  args(l)  args(2)  args(3)  args(4)  args(5) 

Prints  a  portion  of  the  current  alphabetic  map  according 
to  the  specified  dimensions  and  prints  the  desired  number  of 
copies. 


HALT 


Terminates  job. 


13  (23  MAY  67) 

OS/360  FORTRAN  H 

COMPILER  OPTIONS  -  NAM  E=  M A  IN , 0PT  =  02 , L I NE CNT  =  59 , SOURCE , E BCD I C , NOL I  ST , DEC K 

f 

N  0002 

INTEGERTIT (2 ,20) ,C (20 ) 

M  0003 

REALMAP(212t 170) .F(50.5  3) 

iM  0004 

INTEGERNCHRS  (  50)  ,  NNHRS (  50  > 

N  0005 

RFALXL:j(  50  )  ,  XHI  (  50) 

N  00  06 

I  NT  EGER ARCS ( 5 ) , S I Zh , CAROS . SYMBOL , I ITLE, LI M ITS, COMMEN* AUTO 

N  0007 

INTEGERPR IN, GRAPH, F ILTR, CON V , GE TNUM , GE TALF , PUTNUM , PUTALF , SETl PG 

N  0008 

I  NT  EGER HALT , CHUNK , SEGM , CONTR , RE WND , SPRED 

N  0009  

UATASIZE/* SIZE  */ 

N  0010 

DATACARDS/ 'CARD* / 

N  0011 

DATASYMBUL/* SYM8* / 

N  0012 

DA  T  A  T I  T  LE/  '  T  I  TL  *  / 

N  0013 

DATALIMITS/* LI  MI ' / 

N  0014 

DA  TACO M MEN/ ' COMM* / 

N  0015 

DATA  AUTO/  *  Ail  TO*  / 

N  0016 

DAT  APR  IN/ ' PR  IN' / 

M  001/ 

DAT A GRAPH/*  GRAP * / 

M  0018 

DA  T  A  F  I  L JR/ ’Fit X  *  / 

N  0019 

DAT ACQN V/ *  CONV  * / 

N  0020 

DATAGETNUM/ • GETN * / 

N  0021 

DATAPUTNU ’■  /  *  PUTN*  / 

N  0022 

DATAGETALF/' GETA • / 

N  0023 

OATAPUTALF/' PUT  A •  / 

N.  002  4 

DATASET  LOG/' LUG  '/ 

N  002  5 

DATAHALT/ *  HALT* / 

N  0026 

DATACriUNK/ ’CHUN’ / 

N  002  7 

DATASEGM/ »  SEGM* / 

N  0023 

DAT  ACONTR/ ' CONT  * / 

N  0U29 

DATA  1  SOP/ ’ I  SOP’ / 

N  0030 

DATAREWNQ/ *REWi ’ / 

N  003  1 

DATASPRED/ ’ SPRE* / 

N  0032 

NR =2 09 

N  0033 

NC  =  1 60 

N  0034 

NF  =  50 

N  0035 

LOG=  I 

M  0036  1 

RE  A  C ( 5 ,  l  0 , E  ND  =  99 ) IN, ARGS 

N  003  7 

IF ( IN. EQ. SIZE  ) GOTO20 

N  0039 

IE (IN. EQ. CARDS  )G0T021 

N  0041 

I F ( IN. EQ* SYMBOL ) GOT 02 2 

N  0043 

IF( IN.EQ.l ITLE  )G0T023 

N  0045 

I F ( IN. EQ. LIMITS) GO TO 2 4 

N  004  7 

I F ( IN.EQ.COM ME N ) G0T026 

N  0049 

IF ( IN. EQ. AUTO  ) GOT 023 

N  0051 

I F ( IN . EQ. PP IN  ) GGT029 

N  00  5  3 

IF  I  IN. EQ. GRAPH  )GOTQ31 

N  0055 

IF( IN.EQ.FI LTR  )G0T032 

N  0057 

IF( IN. EQ.CONV  ) G0T034 

N  0059 

I F (  IN. EQ.GET  NUM)GQT035 

N  0061 

I F ( IN. EQ.GET ALF )G0T036 

N  0063 

I F ( IN.EQ.PUTNUMJG0T037 

N  0065 

IF { IN. tQ. PUTALF ) GOT 03 8 

N  0067 

I F { IN . E Q.SETLQG) G0T039 

N  0069 

I  F  (  IN.EQ.FiALT  )G0TD40 

1 

N  0071 

IF ( IN. EQ. CHUNK  ) GOT 041 

N  0073 

I F ( IN .EQ.SE G  M  ) G 0 T  0  4  3 

N  0075 

IF( IN. EQ. CONTR  )GGT044 

N  0077 

I  FI  IN. EO. I  SOP  ) GOT  04  5 

—j 

N  0081 


I F  <  IN. 

I  F  (  1  (V  .  EQ.  SPRED  )  G0T04 3 
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\j  006  > 

WRITE(6*18)IN 

si  008  4 

GOTO  1 

0085 

20 

CONTI NUE 

M  0086 

NR  =  ARGS (  1 ) 

si  0087  _ 

NC=ARGS(?) 

s|  0088 

GOTO! 

s|  008  0 

21 

CONTINUE 

M  0090 

JL  EJLA&JGSI  Li  .  E.Q  .0  )  ARG  5  ( 1 )  =  5 

\  0092 

CALLCARDIN(MAP,NR,lslCt  ARGS1  1)  ,  T  IT  ) 

SI  0093 

GOTOl 

s)  0094 

22 

CONTINUF 

N  0095 

NRES=ARGS ( l ) 

s|  0096 

READ! 5, 11 »  END  =  99 ) ( NCHRS ! 1  )  ,I  =  1,NRES) 

\l  009  7 

Gt  TUI 

N  0098 

23 

CONT INUE 

N  0099 

READ! 5,17,  GND=  99 } TIT 

N  010-0 

..GOTO  1 

N  0101 

24 

CONTINUE 

N  0102 

NNE  S  =  ARCS ( 1 ) 

N  0  L  C  3 

SI  0104 

00251=1 ,NNES 

N  010  5 

R  E  A  D { 5 1 12 ♦ END=99 ) XLO(  I )  ,XHI  (1 )  , NNHRS (  I ) 

M  0  10c  .. 

25 

WRITE! 6. 101 ) XLQ (  I  ) ♦ XHI  (  I  )  • NNHR  9 (  T  ) 

N  0107 

GOTOl 

N  0108 

26 

CGNT INUE 

N  0109 

IC=ARGS(1)  . . 

N  0110 

WRITE(6»13) 

N  0111 

D027  1  =  1  * IC 

M  0112 

READ! 5 «  1  /  t  F  ND  =  99 ) C 

N  0113 

27 

WR I TE ( 6, 14  )C 

N  0114 

WRITE! 6,15) 

NLOll  5 

GOTO! 

N  0116 

28 

CONTINUE 

M  0117 

CALL  PLOT ! M AP , NR  *  NC , NR  ES  »  NCHRS ,  MAP ) 

N  U 1 1  8 

GOTOl 

N  0119 

29 

CONTINUE  % 

N  0120 

IE! ARCS! 1 ) . EQ .0 ) ARGS ! 1  )  =  L 

N  0122 

NCOPV  =  ARGS ! 1  ) 

N  0123 

00301=1 ,NCOPY 

N  0124 

30 

CALL PRYNT! MAP, 1 , NR , 1 , NC , T I T , NR , NC ) 

N  0125 

GOTOl 

N  0126 

31 

CONTINUE 

N  0127 

CALL  SET (MAPtNRtNCfNNEStXLOrXHI , NNHRS) 

NX  012  8 

GOTOl  _  __  -  _ 

N  0129 

32 

CONT INUE 

N  0130 

NF=ARGS i 1 ) 

N  0131 

0033 1=1 ,NF 

N  0132 

33 

READ! 5, 1 9 , END=99 ) ( F ( I , J ) , J = 1 , NF ) 

N  0133 

0046  1  =  1 » NF 

N  0134 

46 

WRIT  E  !  6 ,9  J  (JF  !  \  ,  J  )  ,  J  =  l  i  N.Fi 

* 

N  0135 

GOTOl 

N  0136 

34 

CONTINUE 

N  u  1  3  7 

CALLCONVOL  ( f'AP  ,  F  ,  NR ,  NC.  ,  NF  ,  ARCS  (  1  >  ) 

N  0138 

GOTOl 

N  0139 

35 

CONT INUE 

N  0140  CALLGETM r  >  ,  ,  > \  ,  ,  ARCS ( 1  ) ) 

’>‘0141  GOTOl 

N  0142  36  CUNT  INIJE 

N  0143 _ CAI  LGETA!  NAP,NR,NC,  ARGS!  1  )  ) 
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0144 

GOTO  1 

0145 

37 

CONTINUE 

0146 

CALL  PUTN ( MAP , NR , NC , ARGS ( 1 ) ) 

0147 

GOTO  1 

0148 

38 

CONT INUE 

0149 

CAl L PUT A (MAP, NR, NC, ARGS ( 1 ) ) 

0150 

GO  TO  1 

0151 

39 

CONTINUE 

0152 

LGG= ARGS ( 1 ) 

0153 

G0T01 

 Q  'L 1 

40 

CONTINUE 

0155 

STOP 

0156 

41 

CONTINUE 

0157 

I  F ( ARGS ( 5 ) .EQ.0)ARGS(5)=1 

1  0159 

NCQPY  =A  RGS ( 5 ) 

0160 

DU 4 2 I- 1 , NCOPY 

0161 

42 

C  ALL  Q  R Y  NT ( MAP .ARGS  (  I  )  . ARGS (?)  . ARGS (  3)  . ARGS ( 4 ) , T I T, NR , NC ) 

1  0162 

G0TQ1 

1  0163 

43 

CONTINUE 

1  0  164 

C AL LSEGMEN (MAP, ARGS ( 1 ) . ARGS ( 2 ) , ARGS ( 3 ) , ARGS ( 4 ) , ARGS ( 5 ) ,NR.NC ) 

i  0165 

GOTO  1 

1  0166 

44 

CONTINUE 

1  0167 

CALLC JNTQKlMAP.NRtNC* ARGS ( 1 ) ) 

1  0168 

G0T01 

1  0169 

45 

CONTINUE 

L  0170 

CALL  I  SOP  AK ( MAP , NR  t  NC  t  ARGS ( 1 ) , ARGS  (2)  ) 

1  0171 

GOTO  1 

t  0172 

47 

CONTINUE 

1  01  73 

IDAM=ARGS( 1 ) 

1  0174 

REWIND  i JAM 

j  0175 

G0T01 

L  01  76 

48 

CONTINUE 

1  017/ 

C  ALL  SPREAD ( MAP , NR  *  NC , T I T) 

\  0173 

GOTO  1 

1  01  79 

99 

CONTINUE 

1  0180 

WRITE(6,16) 

1  0181 

STOP 

L0182 

9 

FORMAT (2X,  11F3.3) 

i  0183 

10 

FORMAT  (9X,A4,  UX,5I4) 

1  0184 

1  1 

FORMAT ( 80 A  1 ) 

i  0185 

12 

FORMAT ( 5  X , 2F9.2, 5X, A1 ) 

1  0186 

13 

FORMAT (  *  1* ,24X, 82 (**•)) 

i  0187 

14 

FORMAT (25X , *  ** ,20A4, •**  ) 

J  0133 

15 

FORMAT ( 25X ,82 ( » *  1  ) ) 

I  0189 

16 

FORMAT ( 1 1 * , 15X, • END  OF  FILE  ENCOUNTERED  WHILE  READING  SYSTEM  I 

1  FILE  ...  JOB  TERMINATED* ) 

i  0190 

17 

\ ORMAT ( 20A4) 

i  0191 

18 

FORMAT ( 15X, *  INSCRUTABLE  CONTROL  CARD  ...  *,A4,*  ...  IGNORED*  ) 

*  0192 

19 

FORMAT <  10F8.5 ) 

4  0193 

101 

FORMAT ( 15X,E9.2, 10X,F9.2, 10Xf Ai ) 

(  0194 

102 

FORMAT ( *  1  *  ,  1 5 X , *  L  I  M  I  T  S* // ) 

i  0195 

end 

*  END  OF  COMPILATION  ****** 
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1 3  (23  MAY  67)  QS/360  FORTRAN  H 

COMPILER  OPTIONS  -  NAME  =  MAIN,  OPT  =  02  ,L  INECNT  =  59  ,  SOURCE.,  EBCDI  C  ,  NOL  I  S  T,  DECK  , 


0002  SUBROUT  l  NESEGMEM  MAP  ,NR  i  ,  NR2  ,  NC  I ,  NC  2 ,  L  ,  NR  ,  NC  ) 

QQQ3_ REA1  MAP  (212.1  70) 


0004 

0005 

0006 

- — VC  J-  ,  -L  _ 

rewindl 

DUi  1=1 

DO 1 I =NR 1 «  NR? 

0007 
0008 
!  0009 

1  WR I TE ( L , 10 ) ( MAP ( I , K ) , K=NC1 ,NC2 ) 
ENOFILE  L 

BACKSPACE  1 

0010 

0011 

.0012 

REWIND  L 

RETURN 

10  FORMAT  (  16jOF  8,3  ) 

0013 

END 

1  END  UF 

COMPILATION  ****** 
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13  123  MAY  67)  OS/360  FORTRAN  H 

COMPILER  OPTIONS  -  NAME=  M A  I N , OPT =0 2 , L I NECNT=59 , SOURCE » EBCD I C , NOL I  ST , 

0002  SUBROUTINE  PRYNT  (NAP,  NRl,tNR2,  NCI,  NC2,  TITLE,  KR,KC) 

0003  DIME NS IGNMAPI 212, L  70)  ,T  ITLE(2,20) 

>  E  C  K , 

00C4 

NC  =  ;NC2-NC  1  + 1 

0005 

IFtNC.GT .100) GOT 0  99 

000  7 

CALL  PRINT (MAP, NR1 , NR2 . NCI , NC2 * T I TLE , KR, KC ) 

0008 

RETURN 

0009 

99 

CONTINUE 

0010 

I  I  1=0 

0011 

NC 1 A=NC 1 

0012 

6  1 

NC2A=NC  IA  +  99 

0013 

IF (NC2A.LE.NC2 )G0T060 

0015 

NC2A=NC2 

001b 

I  I  1  =  1 

0017 

60 

CONT INUE 

0018 

CALL  PRINT ( MAP, NR  1 , NR  2 , NCI A,NC2A ,T I TLE  ,  KR  ,  KC  ) 

0019 

IF (NC2A.EQ.NC2 ) RETURN 

0021 

N  C  1 A  =  N  C  2  A  +  1 

0022 

GO TO 61 

0023 

i- - 

END 

END  OF  COMPILATION  ****** 
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COMPILER  OPTIONS  -  NAM  E  =  MA  I N ♦ QPT=02 , L I NECNT  =  59 , SOURCE , E8C0 I C , NOL I S T ,  3 P CK  , 


0002 

0  )0  *  . 

SUBROUTINE  PR  I NT  ( MAP, NR1 , NR2,MC 1 , NC2 , T I TL  E , KR , KC ) 

DI MENS IQNMAPI 2  1 2. 1  70) . T I Tl  F  I  2 . 20 )  , I  ( 1 02 ) 

0004 

DIMENSION  I  NO  (3,213)  ,  JNO(  3, 2  13  )  ,  KND  (  3 , 21 3  >  ,  NOSU  0 )  ,  NL  (  3  ) 

0005 

DATA  IBL/'  V 

o  )0b 

DATA  I  DOT/  • - •/ 

0007 

DAT  AN J 3/ ’00001 11 122  22333344445  5  556  66677  77  88889999* / 

0008 

NR -NR  2 -NR l  +  l 

0  000... 

NC-NC2-NC I + 1 

0010 

DO  51  J- 1 , NC 

0011 

I N  D (  1,  J)=(NC1  +  J-1)/100 

0  0  12 

I  ND  (  2  »  J  )  -  MOD  (  (  NC  1*0-1  )  ,  LQO.)  /  LQ. 

0013 

51 

I ND  (  3  ,  J  )  =  MODU  NCi  +  J-1  ) ,  10) 

0014 

DO  54  J- 1 , NR 

001  5 

J  N  D  (  1  «  1  )  =  (  Nk  1  ->-,1-1  )  /I  00 

0016 

JND( 2 , J ) -MOD ( (NR1+J-1 ), 100)/10 

0017 

54 

JND( 3, J ) -MOD ( ( NR  1+J-l ) , 10 } 

0  '  1  :■ 

WR  IT  E  (  6 ,  l  o  )  T  I  TLE. 

0019 

10 

FORMAT (  1H1  ,25X,20A4/26X,20A4// ) 

0020 

M=( 100-NC ) /2 

1 

DO  1  J  = 1  ♦  (02 

0022 

1 

I  (  J  )  =  I  B  L 

0023 

I MA=i+M 

0  02  4 

I MB  = l+M+NC+l 

0025 

MP  1  =  M+1 

0026 

DO  52  J  =  1 , 3 

OOP  7 

DO 5  3  K= 1  .NC 

0028 

KK- I ND ( J , K ) 

0029 

53 

KND ( J , K) =NOS ( KK  + 1  ) 

0030 

52 

WRITEI6, 12)  (  I  (K)  ,11=1,  MB  1)  ,  (KND  (  J  ,.K)  ,.K=1 ,  N.CJ 

0031 

D055 J= 1 t 3 

0032 

D055K= 1 , NR 

■\)  '5 

KK- JNQ ( J . K  ) 

003  4 

55 

I ND ( J ,K)=NGS( KK+1 ) 

0035 

D02 J  =  I MA , I  MB 

003  6 

2 

I ( J ) = I  DOT 

0037 

WRITE! 6, 11 ) I 

0038 

1  i 

FORMAT (  1 6 X , 1 0 2 A  1 ) 

0039 

DQ3 J  =NR 1 . NR2 

0040 

12 

FORMAT ( 16X, 1 10A1 ) 

0041 

D04L  L  =  1 ,3 

~0042 

4  NL1  LU=IJND(LL»JJ  . _ . 

0043 

3 

WRITE (6, 12 ) ( I (K) ,K=1, MP 1 )  ,  (MAP ( J  ,  K )  , K=NC 1 , NC 2 ) , I  DOT , I BL , NL 

0044 

WRITE (6, 11 ) I 

004  5 

RETURN 

0046 

END 

*  F-  • 

COMPILATION  ****** 

4  »  1  1111 1  t  \L  1  & 
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0S/360  FORTRAN  H 

j  COMPILER  OPTIONS  -  NAME=  MA IN ,0PT=02 ,L i NECNT=59 , SOURCE 

, EBCDIC, NOL 1ST, DECK, 

0002 

0003 

SUBROUTINE  CONTGR  ( M AP , NR , NC , L ) 

01  MENS IQNMAP (2  12.17  0) 

0004 

000b 

0  006 

INTEGER  OUT ( 170) 

DATA  I BL/ *  '/ 

REWIND  L 

0007 

I  0008 
0009 

NRB=NR- 1 

NC6  =  NC-  1 

WRITE  (L  ,10)  <  MAPI  1  ,  J)  ,  JM..NC) 

0010 

1  0011 
LOO  12 

D02 I =2  t  NRB 

cun  1  )=MAPI  1,1) 

OUT ( NC ) =  MAP( I ,NC ) 

0013 

0014 

0015 

D03J  =  2 , NCB 

OUT ( J ) =  MAP ( 1 , J ) 

I  F  (  M AP ( I  *  J ) . NE . MAP ( I  - 1 «  J  )  ) GOT 0 3 

r 

1  0017 

1  0019 
LOO  2 1 

IF (MAPI  I , J) . NE . MAP  I  I  +  1  ,  J  )  ) G0T03 

IF (MAPI  I , J ) . NE .MAP ( I  ,  J+l)  )G0T03 

IF (MAPI  i  , J  )  . NE . MAP  I  I , J-i )  ) GOTO 3 

1  0023 

1  0024 
i  0025 

3 

OUT  I J )  —  I BL 

CONTINUE 

WRITE ( L,  10)  (OUT ( K)  , K= 1 , NC ) 

r 

1  0026 

1  0027 

1  P028 

2 

CONTINUE 

WRITE(LfiO) IMAPINR,K) ,  K=  1  ,  NC  ) 

ENDFILE  L 

V* 

i  0029 

J  0030 
10031 

BACKSPACE  L 

REWIND  L 

RETURN 

1  0032 

1  0033 

10 

FORMAT (210A1  ) 

END 

:  END  OF 

COMPILATION  ****** 

•J* 

~  !  whiim  mk 

~ 

n  i  ,  J!  * 

■ 

' 
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13  (23  MAT  67)  OS/360  FORTRAN  H 

COMP  I  LER  OPTIONS  -  NAME-  M  A  I  N ,  OPT  =02  ,  L  I  NECNT=  59  ,  SOUKC  t  ,  F8CD I  C  ,  NOL  I  S  T  ,  )E  C  K  , 


0002  SUBROUTINE  SELECT ( NRES , TEST , XLO, XHI ,NCHRS , ICHQS ) 

Q003_ DIMENSION  X  L  C  (  5  0  )  ,  XH  I  (  50  )  ,  NCHRS  (  50  ) 


0004 
0005 
„00Q6 _ 

V  1  '  '  W  *  1 \  J  •  1  !  1  A  n  A  \  JKJ  !  j  w  1 _ 

DATA  I BL/ *  */ 

I CHQS- I BL 

DO  1  1=1, NRES 

0007 

000b 

0010 

L. 

I  T=  I 

I  F  (  XL(J  (  I  )  .LE. TEST. AND. XHI  (  1  )  .  GE  .  T  E  ST  )  GOTO  2 

CONTINUE 

0011 
0012 
n.'O  ' 

2 

RETURN 

I CHGS=NCHk  S ( I T ) 

..RETURN  ...  . . .  .  _  _ _  _  _ 

0014 

tNO-JOF. 

END 

COMPILATION  »»»»»» 
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13  (23  MAY  67)  OS/360  FORTRAN  H 

COMPILER  OPTIONS  -  NAME=  MA IN , 0PT=02 , L I NECNT=59 , SOURC F t FBCO t C , NOL I S T , DECK , 

0002  SUBROUTINE  SET ( MAP , NR » NC » NRE S , XLO , XHI , NCHRS )  . 

,0003 _ REALMAP(212«  170)  »  XLG( 50 )  «  XH  I  (50)  ,NCHRS(50) _ 

0004  DO  11  =  1, NR 

0005  DO  10  =  1 t  NC 

•  —  ■'  ■■■ —  — --"*•••  ■■  . ™  SELECT  (NRES  ,  MAP  ( I  ,  J  )  ,  XLO,  XHI  ,  NCHR  S,NAP( I,J)  ) _ _ _____ 

0007  RETURN 

0008  END 


END  OF  COMPILATION  ****** 


13  (23  MAY 

67) 

- - - - - - - -  _ _ _ _ — _ _ _ _ _ _ _ _ _ _ _ _• 

OS/360  FORTRAN  H 

COMPILER  OPTIONS  -  NAME-  M A  IN , OPT  =  02 , L INECNT= 59 , SOURCE , EBCD I C , NfJL I  ST , 9E CK , 

0002 

0003 

SUBRQUT I  ME  PLOT ( GRIQ,NK , NC , NRES , NCH ARS »  MAP ) 

INTEGERMAP (2 1 2. 1 70) 

0  004 

000  3 

ja&Qft . . . 

INTEGERS  50) 

DIMENSION  GRID! 21 2, 170) ,NCHARS( 50) ,P( 50) 
i  -NRES _ 

0007 

0008 

0009 

2 

H( I )=0 

DM A  X  =  0  • 

DM  I N  =  100000. 

0010 
i  0011 

1  001.2 

DO 1 1=1, NR 

DO  1 J  =  1  ,  NC 

I  E  (  GRID  U  ,J  )  .  GT  .  DMA  X  )  DMAX  =  GEi  U  (  l  *  J  ) 

0014 

1  0016 

1  0017 * 

1 

I  F  (  GR  i  U  (  I  ,  J  )  .  1.  T .  DM  I N  )  DM  t  N=Gk  I D  (  I  ,  J  ) 

CfJNT  INUE 

DO  7  7  8 1  =  1  ♦  NR 

1  0018 

1  0019 

IQ  020 

D03J= 1 , NC 

NN=  INTI  1 .+FLQAT (NRES ) ^( GR ID ( I , J ) -DMI N ) / ( OMAX-DM I N )  ) 

HI NN)=H(NN)+1 

1  0021 

1  0022 

1  0023 

3 

773 

MAP  ( 1  »  J ) =NCHARS ( NN ) 

CONTINUE 

CONTINUE 

1  0024 
i  0025 

4 

WRITE (6, 4) 

FORMAT ( *  1*  ,  10X  » 'LEVEL* , 10X ,  '  LIMITS  *  , I 0 X , * S YM30L 1 , 

1.  IOX  ,  '  INC  l  DENT  S’  ,  1  OX,  'PER . RENT' //J  ) 

J  002b 

1  0027 

40028 

i 

PC=ELO AT ( NR*NC ) 

X I NC - ( DMAX-DMIN) /FLOAT (NRES) 

XL=DM1N 

1  0029 

J  00.30 

L  0  0  3  1 

DU  51  =  1  ♦ NRES 

P( I  ) =F  LOA  T ( H ( I ) ) / PC 

P(  I  )  =  LOQ..*P<  I  ) 

J  0032 
<  CO 3 3 
k  0034 

XH-XL  +  < I NC 

WRITE (6 ,6) I ,XL,XH, NCH ARS (I ) ,H( I ) fP( I) 

XL  =  XH 

|)  00  35 

k  0036 

N.  0  03  7 

5 

6 

CON  r INUE 

FORMAT (13X, I 2,1 IX, F 8. 3, •  -  • ,F8 . 3 , l 3X , A1 , 1 4X, I 5 , 1 2X , F 8 . 2 ) 

RETURN 

J  0038 

END 

‘END  OF  COMPILATION  ****** 
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13  (23  MAY  67)  1S/360  FORTRAN  H 

COMPILER  OPTIONS  -  NAMt=  M A  1 N , 0PT  =  02 , L I NECNT=  59 , SOUR CE , EBCD I C , NHL  I S T , DEC K , 

*  0002  SUBROUTINE  CQNVOL < GR I D , F l LTER, NR, NC  ,NF , L ) 

si  0003  RE ALFILTER(5Q, 50)  ♦  GR  1 0  (  2  1 2  .  170)  .  C ON  (  1  70) 

v  0004 
si  0005 

m  0006 

REWIND  L 

N A  =  NC -NF  +  1 

ND=NR-NF+1 

s|  0007 
si  0008 
si  0009 

NB=H-NP/2 

D02 I = 1 , NO 

l i = l +  NB-  1 

si  0010 
si  0011 
v  0012 

D03 J- 1 , NA 

J J=J+NB-1 

SUM  =  0 . 

4  0013 
si  0014 

SI  001.5 

D04K= 1 , NF 

KK 1 = I l-NB+K 

004  K 1  =  1 » NF 

N  0016 
si  0017 

4  0018 

4 

KK=J J-NB+K1 

SUM=SUM+F  I  LTERI  K,K1  )  *GR1D  (  KK1  ,KK  ) 

CONTINUE 

N  0019 

N  0020 

N  0021  . 

3 

2 

CON <  J 1  =  SUM 

WR I TE ( L  » 1 02 )  (COMKK)  ,  KK=l  ,  NA  ) 

ENDFILE  L 

N  0022 

N  0023 

N  0024 

BACKSPACE  L 

REWIND  L 

RETURN 

N  0025 

N  0026 

102 

FORMAT ( 160F8.3 ) 

END 

*  END  CF 

COMPILATION  ****** 
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CS/360  FORTRAN  H 

\  COMPILER  OPTIONS  -  NAME=  MA IN , OPT  =  02 , L INECNT=59 , SOURCE , EBCD I C , NOL I  ST , DECK , 

0002 

SUBROUT INE  CARDIN! MAP, NRf NC t LU*T ) 

O0i:i  . 

INTEGERIN( 170) 

0004 

INTEGER  T (2*20) 

0005 

RE ALMAP ( 2 1 2  t 170) 

.  READ  ( L U  ,  13 .END=99) NR.NC 

0007 

REAC(LU,14,END=99)T 

0008 

DO  1 1  =  1 f NR 

0009 

REAClLU.  10.ENI)=99>  (  T  N  ( .1)  .  .1=  1  .  Nf. ) 

i  0010 

D02 J= 1 , NC 

0011 

n 

C 

MAP( I , J)=FLGAT( INI J ) ) 

.0012 . 

.  . JL 

CONTINUE 

0013 

RETURN 

i  0014 

99 

CONTINUE 

0015 

IF  (  UJ.Ni  .  5  )EFW  INDIO 

I  0017 

WRITE(6»11)LU 

i  0018 

S  TOP 

LOO  19 

. 1.0 

FORMAT (4X, 1015) . _  _  . „  .  .  . 

I  0020 

1 1 

FORMAT (*  l 1  f 15X END  OF  FILE  ENCOUNTERED  ON  FORTRAN  LOGICAL  ',12) 

1  0021 

12 

FORMAT ( A 1 ) 

i  0022 

L3 

FORMAT (6X* 13#  2X. 13) 

1  0023 

14 

FORMA!  ( 2  0  A  4 ) 

J  0024 

END 

:  END  Of 

COMPILATION  ****** 
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MAY  67} 

PS/ 360  FORTRAN  H 

COMPILER  OPTIONS  -  NAM  E=  M A  I N , OPT  =  02 , L I NECNT  =  59 , SOURCE , E BCD T C , NOL l ST , TEC K , 

0002 

0003 

* 

SUBROUTINE  o  E  T  N  '(  MAP  ,  NR  ,NC  »  LU  ) 

REAL  MAP (212* 170) 

0004 

0005 

0006 

1 

REWIND  LU 

DO  1  I = 1 , NR 

READ(lU, 10 i END  =  99 ) (MAPI  I, J) . J=1,NC) 

0007 

0008 

0009 

99 

REWINDLU 

RETURN 

CONTINUE 

0010 

001  i 
0012 

10 

WR  ITU  6, 11  )  L  U 

STOP 

FORMAT (  1 60  F  d • 3 ) 

0013 

0014 

— 

11 

FORMAT!  H  »  t  15X,  *  END  OF  FILE  ENCOUNTERED  ON  FORTRAN  LOGICAL  %I2) 
END 

END  UF  COMPILATION  ****** 


-JJ2S  J.xUi  I  SAM  |A J  H 
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13  (23 

MAY  67) 

OS / 360  FORTRAN  H 

COMPILER  OPTIONS  -  NAf  L=  M A I N , 0PT=02 , L I NECN T  =  59 , SOURCE , E BCD I C » NOL I S T , DEC K » 

0002 
0003 _ 

SUBROUTINE  P  U  T  N  { MAP , NR , NC , LU ) 

REAL  fX\P  (  %  ]  70  ) 

0004 

0005 

REMIND  LU 

DO  1 1=1 , NR 

002  ..jK=  1  »  NC  _ 

0007 

OE TEC  TED 
Q0Q9 _ 

-  SCAN 

I  FtCM  AP  (  I  ,  K  )  .  L  T  .  1  000  .  V .  AND  .  (M  AP  {  I  ,  K  )  .  GT  .  - 1  000  .  WGOTO  2 

POINTER  =  1 

WR I T  F ( 6. 1 1  t  I  .  K 

0010 

0011 

0012 

2 

.  IX. 

MAPI  I f  K i =0 . 

CONTINUE 

FORMAT  L5X  »  ’  OVER FI  1W  AT  1=  ’  ,  L3  ,  '  J  J=  ’  ,  13  ) 

0013 

1  0014 

1  0015 

1 

WRITE(LUflO)  (MAPI  I, J)  ,J  =  1,NC) 

ENDFILE  LU 

BACK  XP  ACF  1  ll 

0016 
i  0017 

1  0018 

. . JLjlL 

REWIND  LU 

RETURN 

FORMAT ( 16QF0-3) 

1  0019 

END 

4 * 


* 
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w1 


' 

_ LuSkJSlUAlUi^SL 
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(  ♦  J  r  l  f  IL,!)H^)(I  i,Uj)  .11*  J 


COMPILER  OPTIONS  -  NAME-  MAIN»QPT-02  t  L I  NEC NT- 59  *  SOURCE  »EBCOIC»NOLISTtOECKf 
si  0002  SUBROUTINE  PUT  A  (  M  AP  ,  NR  ,  NC  »  LU  ) 

1  0003 _ INTEGERMAP (?1 7. 1 701 _ 


J  0004  REWIND  LU 

1  0005  001 I=ltNR 

,  0006  ,.1_  kRI  It  {  LUaUHIMAH  I  till  J  =1 

i  0007  ENOFILE  LU 

sj  0008  BACKSPACE  LU 

1  0009 _ ■REWIND  LU  _ 

;  0010  RETURN 

^  0011  10  FORMAT ( 160A1 ) 

i.  „Q  Q 1 2 _ _  - . £NQ . . . .  . 


*  END  OF  COMPILATION  ****** 
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13  (23  MAY  67)  US/360  FORTRAN  H 

|  COMPILER  OPTIONS  -  NAM  t  =  M A  I N , 0PT=02 , L l NECNT  =  59 , SOURCF , E BCDI C , NOL I S T , 

0002  SUBROUTINE  GET A ( MAP , NR , NC , LU ) 

0003  1 NTEGERMAP (212.170) 

DECK  , 

0004 

0005 

0006 

REWIND  LU 

DOi  1  =  1 ,NR 

1  RE  AD ( LU  *  10 , END=99 ) ( MAP (I , J ) , J= 1 ,NC > 

0007 

0008 

0009 

RE  WI  NULL) 

RETURN 

99  CONTINUE 

0010 
0011 
.0012  . 

WRITE ( 6  y 1 1 ) LU 

STOP 

IQ  FORMAT ( 16QA1 ) . 

0013 

0014 

11  FORMAT t ' 1 1 5Xt ' END  OF  FILE  ENCOUNT FRED  ON  FORTRAN  LOGICAL 
END 

*  *  I  2  ) 

END  OF 

compilation  ****** 

L — - - - 

ifi\A  t  A'  >A  T  2 
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13  (23  MAY  67) 

|  COMPILER  OPTIONS  -  NAM E  =  MAIN,QPT=02»LINECNT=59»  SOURCE  »EBCDIC»N0LI ST t  DECK  , 

0002  SUBROUTINE  I SOPAK ( MAP , NR , NC , L 1 , L2 ) 

300.03 - RE..AL  M  A  P  (  2  I  2  t  1  7  0  )  tV(  17  0)  _ 

0004  REWIND  LI 

0005  REWIND  L2 

JLQlQ6 .  .  DO  1  1=1  t  NR _ _ _ __ _ _ _ _ _ ... _ 

000  7  RE  AO ( L 1 » 10fEN0=99)  (MAP( I »  J  ) »  J= 1 »NC ) 

0008  REA01L2, 10,END=98) ( V ( J ) , J = 1 , NC ) 

1>009 _ DO  1  J  =  1 » NC _ _ _ 

0010  1  MAPI  I  >  J ) =  M A P (  I » J ) - V ( J  ) 

0011  REWINDL1 

fcOJ-2 _ ■_ .  RE W,I,N 012 . _ ___  _  _____  __ . .  _ . . 

0013  RETURN 

0014  98  WR I TE ( 6 » 1 1 )L2 

10015 _ RETURN _ _ _ 

0016 
0017 
.0018 

0019 
0020 


END  OF  COMPILATION  ****** 


99  WRITE (6, 11 )L1 
RETURN 

10  FORMAT  <  16QF8 . 3 ) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 

1 1  FORMATt * 1* ,15X,«END  OF  FILE  ENCOUNTERED  ON  FORTRAN  LOGICAL  ’,12) 
END 


t  «  ! 
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.□S/360  FORTRAN  H 


L3  (23  MAY  67) 

COMPILER  OPTIONS  -  NAME=  MA I N t OP T =02 , L I NECNT =59 , SOURCE , E8CDI C » NQL I S T ♦ )FC K , 

0002  SUBROUTINE  SPRE AD ( MAP , NR , NC , T ) 

.0  003 _ INTEGER  MAPI212.1  70)  ,T(2.20) _ : _ 

0004  W R I T E ( 6  » 1 0  )  T 

0005  •  DO  I  I = i t  NR 

,0006 . .  1  WRIT  E  (  6  f  l  1  )  (  M  A  P  (  1  ,J)  , J=l,66) _ ___ _ . _ 


0007  WRITE (6,  IO)T 

0008  D02I=1,NR 

10009_ 2  WR  I  T  b  (  6  ,  LI)  (  MA  P  (  1  «  J  )  «  J-=  67 ,132) 


0010 

0011 

0012 

«-  y  ■  *  L  ^  t  U  M  “  '  V  i  t  J  \  t  ■>-  '  1  i-  C.  I _ 

V»R I  TE  (  6 , 10  )  T 

DG3I =1 , NR 

.  .  .  3..  WR  I  TE  {  6 , 1 1  )  (MAP  (  1  ,  J  )  ,  J  =  1  3  3  «  NC  ) 

• 

0013 

0014 

0015 

RETURN 

10  FORMAT (  *  1 1  , 26X,20A4/27X,20A4// ) 

11  FORMAT ( 66 (  IX. A1  U 

I  0016 

END 

(ND  OF 

COMPILATION  ****** 
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191 


Program  4 


This  program  corrects  digital  map  values  after  they 
have  been  stacked  on  magnetic  tape  and  numbered.  Provision 
has  been  made  to  delete  extra  values,  replace  wrong  values 


and  insert  new 

values. 

Input : 

Format 

(211) 

logical  units 

Format 

(80A1) 

symbols  for: 

end  of  insert  cards;  delete; 
replace;  insert. 

Format 

(ix, no)  - 

number  of  map  card  where  correction 
is  to  start. 

Format 

(80A1) 

corrected  cards.  If  cards  are 
inserted  series  terminates  with 
end  symbol. 

► 

' 


"  ( IIS)  ts  w< 


EVEL 

13  123 

MAY  67) 

GS/360  FORTRAN  H 

CCMPILtR  CPTIGNS  -  N  AM  E=  M A  IN , OPT =02 , L I NECNT  =  59 , SGURC E , EBCD I C , NOL I  ST t 

ISN 

CCC2 

INTEGER  C  C  8 0 )  ,  T  A  ,  T  8  ,  A  ,  D  ,  R  ,  I 

 IS N 

c.ac3 

RlAH  5.  103)  I  A.  IK 

ISN 

0CC4 

NR-C 

ISN 

0005 

N  w  —  0 

ISN 

0006 

READ ( 5  ,  IOC ) A, 0, R, I 

ISN 

CCC7 

1 

READ ( 5  ♦  101  * E N 0  =  9 9 9 ) I I , N 

ISN 

00C8 

CALL  POSH  I r A|TB»N»C»NR»NW) 

 ISA. 

_ 

1  F ( I I  .EQ.DJGGTC  i 

ISN 

GCI1 

I  F ( 1 1 . EQ . I ) GG  TO  2 

ISN 

C  G  1 3 

READ! 5, 1GGIC 

ISN 

CG14 

W  R  1 1  E  (  T  Q 1 1 0  0 )  C. 

I  SN 

CO  lb 

Nr=NW+  1 

ISN 

0  C  1 6 

GGTC  1 

LSjNl 

C..C17 

2 

CCMINUE 

ISN 

GO  1  8 

Nh— NW+  1 

ISN 

0019 

WRITE! TB,  102)  (C( J) , J=l, 55) ,NMf (C(J)  ,J  =  66,80) 

S  N 

G  v>20 

. . . 3 

REAL l 5  »  ICC  »  cNO= 999 ) C 

ISN 

GC2  1 

I F ( C (  1)  . EQ *A ) GOTO  1 

ISN 

0023 

N  w  =  N  W  +  L 

ISN 

0024 

WR I  IE ( TB, 102 )  (C(J)  «  J= 1 «  55  )  » N  ^  »  ( C ( J )  .0-66. HO) 

ISN 

CG2  5 

GGTC  3 

ISN 

GC26 

999 

CCM  INGE 

CG27 

4 

REAL l T  A  » 1 0  0  t  E  N  D  =  9  9  8 ) C 

ISN 

C028 

N  a  —  N  W  *  1 

ISN 

0029 

WRITE(TB,102MC(  J)  »  J=lt  55)  »NW,  (C(  J)  ,  J=66,80J 

ISN 

G030 

GQTG  4 

ISN 

CC3  1 

998 

CENT  INGE 

I  SN 

0032 

REWIND  IA 

ISN 

0033 

ENDF IlE  TO . 

ISN 

C  034 

BACKSPACE  T 3 

ISN 

GG3b 

REWIND  TB 

ISN 

G  G  3  6 

S  TCP 

ISN 

GC37 

ICO 

FORMAT ( 80  A  1 ) 

I  SN 

CC3  8 

1C1 

FORMAT!  IX, Al, 110) 

ISN 

CC39 

1C2 

FORMAT  l  5§A 1 , 1 10  »  lb A  1 ) 

ISN 

0040 

1C3 

FOR MAT <211 ) 

ISN 

0C4  1 

END 

******  END  OF  CGMP  1  LAI  ICN  ****** 


i  t  X  t  f  A  t  i  *  A  F  *(*>■•)  O  *•  .1  0  1  <  / 1 1  £  0  J 

I  1 1  '  i  )  J(\jh.  _  _  Lju 

.  ,  t  .  I  *0  .  t  )  ■ 1 J H 

j  «  i  0  i  •  C  )  J  A  d  >i  ■  1  \  JO 

(Mi  ,M,.;,,>,ljrfAinUUS  J  J  A  J  bOO 

•  .:U>  I  .  .  j  *  1  11  U  .  *>Js, 

• 

l  Jji  , C  > UA  ♦  £10 

JM  Jit  FIJI  1*.»  Ai 0 

i  ♦  =  ri/l  610 

i  3FD0  610 

J  -  i  I 4JJ  £  \  1 J 

1+MMsrfM  bio 

.  >  ~  r  t  i»  ,  <  »  i  -0  ,  10  1  M  it.  Illl!  . 

l  (  ^  t  J  J  t  C  )  J  A  .1 A  £  U£v 

i  J  \  Jo  (-  .  i.  t  i  )  J)  It  1,0 

1  *  *  >1-1** .  1  £  £0 

*10.1  It  t  J  i.  t  i  = .  t  1.0  1  JJLl  a  i  t  U  N  J.  I  1  h  * .  ££ju 

t  jrjo  eso 

du/n/ijj  o£0 

Jl  V  *>-(!✓  j  |Q0I  ,  /  l  I  JA  J  1  A  \  iO 

i  •*  a  A  -  nA  b£Q 

,  ?  t  o )  it  1 1  ,  i  . ,  1 1  )  i  (  .  i ,  u  j  f  I  k,  b£u 

>  jxaa _ ii£ii 

doH  1  1A  >J  b??  1  £0 

A  I  ^  ££u 

«  ,  Jl  ivj/  J  tU 

<  I  JOA  *c  xJAQ  A£0 

-  ti  t  ova  a  iv  e£0 

,_.S ,.ij.  cL  „  6£0 

. 

101 1 , i a , A  1  )  T*  •  i  1 Jl  B£ J 

(  IAcI  ,0i  i  t  1  A  c!  c  )  I  A  M  h  .  I  £01  V  to 

t IIS)  i  ^  •  i  i  Jl  0 AO 

U/13  1  AO 


«  v  •  /  Jl  I  A  J  l  4V  JJ  d  J  J/I 


US/ 360  FORTRAN  H 


EVEL  13  (23  RAY  61) 

COMPILER  OPTIONS  -  NAME=  M A  I N ,GPT=02 , L I NECNT=59 , SOURCE , EBCOI C , NOL I  ST , 


ISN  0002 
ISN  0003 

ISN  COCA 
ISN  CCC6 

JiN  J1G  Q  7 _ 

ISN  CGCd 
ISN  CC10 

isn  con 

ISN  0012 
ISN  CC  13 
ISN  C C  1 A 
ISN  0015 
ISN  C C 1 6 
ISN  0-01 

ISN  C C id 
ISN  C C  1 9 


SUBROUTINE  PCS  I T < T A , T fi , N , C , NR , NW ) 

_ INTEGER  T  A ,  16.0(80) _ 

IF(N*EU*0) RETURN 
1  REAL ( TA  ,10G  ,END  =  9)C 
NR=NR+ 1 

IF(N»tQ«NR)RETUftN 
Nto— N W+  1 

_ kLRiIE(  Tfa,102)  (C(  J)  .0=1,55)  .NW,(C(J)  ,J  =  6b,80) 

GO  TO  1 

9  CONTINUE 
iniR  IT  £  C  6 « 10  i  ) 

KETUK,\i 

ICO  FORMAT ( 80 A  1 ) 

1.Q1-  FORM  A  T  (  *  t:  OF  IN  POSIT*  ) _ 

1C2  FORMAT (55A1, IiO» 15A1) 

END 


,*****  piyc  cp  COMPILATION  ****** 


mu  -  *  jvu  i j j*du<i 

i  i".l  t.i’l  i.  >  •  . i 

wj  1  .  10..  ./•)'! 

J  j  j  / 

l  4  t  i  »  M  >  *  *  >» 

i 

dGQO  t 

i  +  ;•  -  vi 

\  jw  v* 

1  i  ...Ml 

• 

tt 0 00  * 

|  ♦  .it  /)  ■=■  <?V\ 

0100  . 

,JJlL  •  i )  *1  i 

U&Q.  / 

1  .  I  Jd 

Si  00  . 

o  /  1 1  A  P  J 

e 

£100  . 

i  i  .  .  .  i  i 

■ 

c  i  00  . 

l  i  )  i  1 

001 

0100  1 

1  OJL 

w,. 

a  i  ,  0 i  1  t  i  cc  )  i  4  --ri 

SJl 

bi  00 

eioo 

v  ;  •.  *  4  “i J  u / d 


.2  7i56o 
•  WZ6556  6666 

.WY5556  677776 
.lvY7456<,77»fl77is 


.WB55566778  6776 
.97556667  767  76 

7.6167  7.76.177 _ 7  o 

.66777776667  7o 
.77866677667  766 

-677667  7/7776 


07665^  456  0544456654344432  2  3344554 1 8C6  1  34  a*  .  I  AAAI  2  m - LA — 

6544456  O 54  455554445432  233445  5318BB134 
6555.5  560 54_4_£t544-  — it5_432233 4  45543 IAiiA±3 4 


43 


All LAAu 
1A  AAAAd . 
1 A  A  Ad 

1 1 A  A8 


BA  A 1 


1A 


AB  BA 


•  9  c  778  b  7  7  7  76  88  7  7666  7  7  706  5 

.87  78  87  78  8  87777  7665 


655  55  554  4  4455433233445  5431AA1234 

665  5444455  543  33445  544321112334 

-fcfrfrfeS - 5555 - 5443  3445S  543325?^?  ^  au 


32  22 l 1ABBBA2344321  1AARA12321  1A  AAAAd  BAA l 
1,5  3221AAAB8AA13443221  1ABBA12321  1  1A  A 1  1 1 AABbA 1 

433  — 3-21ABBBA A12234_4322J_  1ABBA12221LA1 IA  AL  IA  AAAI 
4433321 BCC812233  33322 1  '  1ABBA1222 1  l  1A  Al  ia  Al 
4432ABC8A233  3221  1AABAUH  IA  Al'lAAUl 

-A32ABE3323  33  3  3211  1  1  1  A  AAiim  ia  ^  , 

4321 ABA233322221  IA AAA  A  AAA  AAA  A  A  111  IA 


-AAAB _ BA__ 

1  BA  Al  1 AAAABBB  BA 
'6  BA  Al  1AAB8B  BBBBA 
-***•  faAA1 - LAB - HBAAAA _ 


1 AAB  BA.  005 

1AAB  BA.  006 
-1AAB - BA^  .Q0J. 


555  54433445665443  3332223  344 

765  5677654434  45  55432223344443 33 3222234443222 22 1 1 A 


1 AB  BAA 
1AABBBA 

- LA_AAA__ 

1  IA 
1A111A 
2-2-LLA — AA LA 


AA 


-AJ_ 


1  AAB  BA.  008 
IA  AB  BAA.  009 
-LLA - Aim  A  A  .  nin 


Al  1 AA  ABBA.  Oil 
A  1 1 A  AA  A 1 1 A  AA  ABBA.  012 

- AA  1—1  ABBA- AA _ A11AABBA^_  0 1  3 

AllLl  1 AB  BA  AA  All  1ABB A .  014 
Al  1221AAB  BABBAA 122 1AB  B.  015 
-AJ— 12-21.48 - BHAA 1  2 3 7 5 A r  r. 


.988889988778 
. 9SS999998877d 
-W.Z997779987  76  H7 
.1  LI 
.  ZZYYZ 
. 2 YYYY/ 

. Y YXXYZ29 
. YYXXYZ9  98  89ZYZZ9876 
.-Y-  YYZZ998 _ b.9 ZYYZ9776 

.Y  YZZ  9  98  889  Z YY  Z  8  76 


- —  —  — . _ ,  ,  .  A111177771 

7665  566  766433  344  5  55432 11234554  444 32 1 1 234 5443 3332  1 1 A A  1  1 223 3 332 1  1  1 


J-LLL222UA. 

L  222  32 1 1 A 
12  2322  1 A 


AAR  A 

^  A  A0S  ?A  A1  12  21Ah~  OAA  L23  32A8  B.  ^TT 

Al  12221  1AA  iS  R^ii  122211ABBBBBAA1 123  32ABBA .  018 

M  ^  afmA^AAAA_A123T3^1Mai_IU3_ 

A1  121  1AA8  BAA1U 

-A — A8BAA11Z21— 


1  IA 


43322123455431  1234 
4332  22345542212334 


66 


921  l  1 1AA 1 122 1 1AA1  1222  211  12  2IlAb  BBB  BA 

232?};,  \l 

7  77665606  666554  456776433455  55443  33444  33?  ^  ^  aaa  ^ 21AAAAAAAA 


AA  A  12  2 1 1 A 
AAAAAAAA  A112  211A 

BAAAaBA_ A  l  |  2 211A 


A 12332 1 AB  BA.  020 
A 1 222 1 ABBBBA .  021 
— AU7  1  1  Aftf.rftA  !  r>->? 


.V  VZZ,  zB8T709ZZ9b77oo777776655B&  .  5  5445  56  7^3  23<V5§ffi55  5AA33332  22  34^43  22  33  2  ^  ?!^^^4432  ,  AAU  Z222UAA  U  U2 

•  Y  YZZ 9  98776  7  8.9  9.9  98877888 8.7663  566776  6554  .45.67_X6.4223_4_56j6_65_5_5_43J2  2  2344332  232 

v  YZZ9987o  0789ZZZ99999998765  566776  6554455666532124556  6654332 


A112211A  A  AA1 

A  12  2 1 1 A  AAB A  AA11 
A112221  IA  ARR  RAAj  i 


All  1ABCBBA.  023 
1AABBBA.  024 
Al  121  1  A  AAA. 025— 


A  1 12 1 1 1  A  AB  BAA  1 
A AAA  AA 1  1 1 1 A  AB  BAA  1 


_  21A 

22 3333344433211  111  AAA  A1221122211A  HH. 

—21 233 444.4343322  111  1 AAAB  A  Al 222 1 11 1 L  IA— .All  1  IA  ill _ 1AA  AR 

•  ZY  YZ  Z99B6  6  7U9ZYYYZ99ZZ  967655  5667  766  544556  6543U234556'65433222234  432  ZslllillUittllL  3 1*2  11  AA  n  5  f  1 “Ji  1  U  A‘  1  121lA»''  «»»M 

•s9"^™7****^***^-^**^^  ^^a,;aaa  ft  A  « 


12  2 1 1 A  A.  026 
12  21A  A.  027 
.127?!  IA  a.  n?fl 


1 1 1  LA  A.  029 
1 1 1 1 1 1 A  A.  030 
— LAAAAAA- A  A.  mi 


G27ZZY YYZS8/788ZYXXYZ99Z  Z987666  67 

MJA6ZYXXXY988B9ZYYYZ999Z  Z9 8777  7677 

bU  A6YW W  AX  YZ.9SZZ  Y YZ  998.9Z  Z987  _  7667  16.667776.  66  6o54 4  56  6.5  4  3  3.4454.44  433223444321  122333 


7655566  6  554433334556  6^43  33334  4332 3*455432 1  1222  2  232211 

76666676655554444456  6543  34444  433234454321  122322  221 


-HAb  RA 


-Al 


1 AAAAAAAABA  A.  032 
1  AABBBBbBB  BAA.  033 
-LA — AB - BARRA  A. 


67  777 


Lo  6  7 


67654  4556654333445  5554432  233 3 32 2 1 l 1 223  32  21 

76  6776544455654332345  54432  23  32  2212  2332222221 

.?_76_.667.(l£43345-_5543  345 _ 5554433723  3777117  222  1  1  1  11 


MK2ZW  WXYZZ  ZYYZ99899Z987 
.M  MH6XW  WXYZZZY  YYZ98899987 

— .-£1^ _ MC8XWWXYZ9ZZYXXY98  89887 

.WM  M19XYYYZ99ZYXXYZ98  8  87  77777667 
•  W2M  ML28Y  YYZZZYYXYYZS88  8778888777 

fcJaUlft  MlSjSmXZ  Z  YY  YYZ998  88  8887  7655667  7655455665  5555554433 

•WW3M  M J18XXYZ  ZY YXXXYZ6888888  87765567  7654556  65566665443 

.A  W1M  MK18ZZ9ZZ  ZZYXXYZ 99999998  87766667  7654456  666766543  3334 

-feG.MN _ MKB669ZYZ99ZYYYZ9999  9888887  76677  754345666  66543  333444 


766  67766543445  54433445  544443  333333333322112  221  11  1 2^32 11A 122344444 321 A 

766  67  766544455  5444455544333  3 4444444443 22  l  1  22 322 1  A  A  1  1  2 233 2 1  1 A  1223444443 J I  I  A 

7655667  7655455665  5555554433  34  444844?!  im„iu,  ,  t .  *  HZ?' ±  f A 


l223333222liH6B8BSA  il  .  1AB  &A  AllU  lAAB  BAAAA  A.  035 

12  2111  1 1 1 AAAAAA  A11AA1  1AA111A  A112  . . 

122 1 1 A  1 12222222 1  l A  Alll  H  ia  a12 
1Z2211A112333333221A  AA l l 


AA  1 
Al 


—LA 


34 


W8JM  MMC59ZYZ9  9ZZZ  ZZZZ9988777 88776778 7643  3 56776  654433444 

AACM  ML18YXY9  999Z  ZYZZ9887  787  767  7764334577776  65443445554 


95442.1  -L23A3ZHAl_J2?i3ZlAAl  12  333J.33  321A _ 

4334455421  L234444221 1  L* 2  222 1AA  1 1 2222223 322  1 A 
43  3445542112345554322112  21A  Al  11111122  21AA 

T1 - rffici?11^-45655*3*22  i21  A  A1 _ 1AA1  1Z— 2X1  lAAAAAll?r  IA 


.  4SW 
.138 


43  345  5432123455  54432 

43  344554322233455554432 

3444433222334444  43321 


WJM  MG5YXYZ99999ZZYYZZ9887788776677  754345688876654334555  54 

*YM  MB9XYZZZZZZ  ZY  YZ  99  8  88  d7  7 77876544568 89 8765 4 3 3456o65 54  4544 3  3443  33  322233334  432 

ABM  KK3ZXYYYY Z  ZZZ998  88887789998654567899876543356776544  4554433  33  344  3322112  23443321 

1127A  AIM  MH5YXXY  YZ  Z99  9 8 89 99 8 8 79Y XY9 65 5 56 78 998 76 543 46 78 764 4 3445 4  44433  34 


Al _ 

Al  11 
A  11221 


21  1AAAAA11221AAA.  038 
2 1 1  AA AA 1 12  21ABB.  039 
-A112— Z1  1111172731AHH. 

IA  A  A 12  21  12223321  ABB.  041 

IA  AbAA  1121  1223  321ABB.  042 

l-l _ LLLUZi-iZlA, 


IA 


1 28  A 

1 3ZW 
14W 
16W 
128  A 
LiZJeL 


AIM 

AM  MD8X  XYYZZZ99 

W9M  MA9XXY YYY  ZZZ9 
ACM  M19YXXXXYYZZ99 


.4321  1A12  3444321 


1AAA1  11112  22111111 

1  111  1111222  222221  1AA1 

2  1  112222,  2  2333321  111111  IA  Al 

122222  21223  3211AAAAAA1 IA 

1223332  221  1233321AAAAA  AA 
-1-22332  21  1 


1AAA1  123  3  2  1 A  6  B .  044 
Al  IA  AAA  12332 1 AAA .  045 
Al  IA  ABBAA12221 A  A.  n&A 


AM 

A3M 

AA.M 


MA7YX 
MB7XW  AY YZ 
MCSXAAXX.Z. 


-7  989ZXXY9755678  888765445688754344554434  4433334  432 1AA  1245543,21  1222221 

9Z9  98Z YXY9666778  8776544567764  4555543  34  444444  4321  1A1  134  554  321 H  12211 

92Z9  99ZZ976  678  87766544566654456665433  345555554  4332  1 1  1  235e^V3r2222 1  11 

XYYZZZ999ZZ  9  9898876678  8766554  4555  556116543  23345665  5444432212245  5432  22111111 

ZZ999  988777778  875544  4455^678765432334566554455543222345  542  2322222221  1A  All 222222 


_122221AA8b6BA 

11  12221 ABBBBA 

1AA1  111 IA AAAAAAAAA 
A  Al  111111111 IA 


IA  Ab  BA  1 1 2 1 1 A  A.  047 

IA  A8BAA11  IA  A.  048 
1 AAAAAAA  Al 1AAA1 .  049 
Al  1 11 1 1  A  AAA111.  050 
Al  IA  AAA  Al  1.  051 

— - L.AAbBB A  All.  057 


Z9 


-9.9 988 8.8A8A8 — 8_L6_5_4 — 4A4itA55-6-7JL8 87654323456655433556t>4?  734S  S3?  2  3  3  3> 


Al  1 AAB  BAA1L.  053 

Al  11  11  1 AABBBBAA1 1 .  054 

A l 122 11 AA 1  1 AAAAABAA 1 1 .  055 

IA  A  1.11 1 1 11222  1  IA  A  1 12  2 1  LA  All  UA  A  All.  056 

21  IA  A 1 122 1 IA  AA1  IA  All.  057 


15W  W7MM  MB8XXYZ  Z9 

127W  WWJM  MB8YYZZZ  Z9 
127rf  HJM  MA8ZZ99Z  Z9 

137W  WKM  ML18ZZ9Z  Z999 

127w  M1M  MJ28ZZ  ZZZ 9999888  877  7666  67  76  6554333455666543  3333443211234  432  23 

- L22iJd - laLLil - MF  5ZZZZZZZZZZZ998 - 8fU _ 76655667  7665543  3456  6543  04444  43?  1  l  73344337  ? 


9ZZZ9998  8778876544555556677a  87654333456554333456643223455432  23 
9ZZZ99  88  7  7  7765  55666666  7  788  76  5443344  55  54  3  222456  542  2344  544  2  2  3 

999  9887  766667777777777654  4445  544322234543222 344432  23 

9998  d7  76  .67  766665544  455565543  3333443211234  432  23 


-A1ZZJULA 


115W  WGM  MB8YYYYYYYYZZ998  87  76656  67  766543  345566654333455554  432223  33 

15W  WM  ML3ZYYYY  YZZZ98888  87  7666667777665443345  555443445  54  433222333 

15W  W£M  MF6YXXXYZZ99.8^JL7788H.8 8J7  7777  777RR776S544SS‘a  ^444  4*.^  ^4.  4433^2223- 

,16 W  WZM  Mb9XWXYZ98887b67d9998888888788  87655667765543344555  54  4  4332  23 

■128 W  WFM  MK3YWWY98777766789999999988778  876666788775433345566554  434  433223 

- LiXJfll - WU4 - MG7WWX7.8  889B88897ZZZZZ29  8  87  78H76S667R  87543234S6  RSS4  4^ 
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16h  WLM  M13899ZYYZZZYYYZ988  8777  76666  65  5678888765  5443  34  43222222233221  12 

128W  WLM  ME4789ZZ99ZYXXY98  88887  77776  655  5678998876555443  34  433?  ??2  22  21  12 
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3443  3221  1223  332111AAAA1 

34  4332  2U223332111AA1111LU 
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AA 
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_ 11 _ LA.  _.A  A1221AA11.  067 

1221  1  AAA A A  1  1 1 A  Al.  068 
12  21  11111  11AAA11.  069 

12 - 2111111_ 1  AABBA1  7  .  070 


2 1  IA  1 1 1222 1  1111222  2222221  1 AB  BA12.  071 

21 1 AAA  1  111  1222111122  211AAB  BA12.  072 

-21  1111  11  1? - 2J - 112  .2_ 21 LAB BA122  .  0  73 


14XW  WLM  MLA79Z9  9 YX  XY9999ZZ98 776788876  6666  6788766554 

15W  W5M  MJ4ZYZ99ZYXXYZ99Z  Z987  778  876667776  677766554 

_ L6.W _ WLM _ M£6X9 _ 9ZY  YY.Y  Z9.9ZZ  9987778  8665678876666  6.55 _ 5A 

128W  WZM  ME589ZZY  YZZ9999998888  8765678  87655555  54  43  345554  4444567880432  23 
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54434455543  32  2734432212  2il2__2 _ 21 

543  3444443  32211222111  1221  12 
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433221  11  UAAA1  111112 

43  322  21  11AAA11 22222. gl 1  12221111  112  2  1_ 1111 


21 

221111 


3221AAAABCCA2.  083 
32 1 A  AABBCBA2 .  084 
3221.AABB  B.CBA2.  085 
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FILTERED  STRUCTURE  CONTOURS  ON  THE  SUB- CRETACEOUS  UNCONFORMITY 
13  *  13  SPATIAL  FILTER 
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CONTOUR  INTERVAL  50  FEET 


SYMBOLIC  CONTOURS 


NUMERIC  ARE  POSITIVE  CONTOURS 


ALPHABETIC  ARE  NEGATIVE  CONTOURS 
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3222  2 1 A  A 1  1 2 2  211A  A1222L122  21  1 

3  3 3322 1 A  A12  211AAL111  12  21  1A1 
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FIGURE  37 


FILTERED  STRUCTURE  CONTOURS  ON  THE  SUB-CRETACEOUS  UNCONFORMITY 
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FILTERED  STRUCTURE  CONTOURS  ON  THE  SUB-CRETACEOUS  UNCONFORMITY 


15  x  15  SPATIAL  FILTER 


CONTOUR  INTERVAL  50  FEET 
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FILTERED  STRUCTURE  CONTOURS  ON  THE  SUB- CRETACEOUS  UNCONFORMITY 
21  x  21  REGIONAL  SPATIAL  FILTER 
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FILTERED  STRUCTURE  CONTOURS  ON  THE  SUB-CRETACEOUS  UNCONFORMITY 
7x7  SPATIAL  FILTER 
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14k  W3MN NMIYX 9 7655555422122221  IA  AAI  1 1 1 AA 1  1 1 1 A B  d A 1 

13k  W  6MNNMM39B7  663.665  4 1 AA2  33211AAL 1  IAA— AJ _ 11  LAAbdAi 

WMN  NML25666566531BA13321A  Al  IA  Al  12211A^AAil 


BA 

bAAlA 
BAAl  1, 

AiJb  d  AA  1 
ifA  A  AAA  1  111 

IA  A  All 
1  LI  1 
cl  i  1 A 1 

IAAAL 

IA  Al  111 
14  A  1 12221 

IAA  A 11 2  21 

1  1  AAA  1  1221 

L  I  I 


A 1 122  7114  AA  1 12  321 .  123 

A  12.2  2 2 2.2 22  1  ..IAA  U  12  321.  12_4 . 


A  AA  11222111111  HI 
1  AAAA  1 1  1211111  11AAL 


All 


1 1 1AAA1 1 IAA  Al 
IAA  AAA  A 
IA  AAAA 
IA  AAABBBBA 
IA  ABdB  Ai 
IA  ABBBB  BBA 
IA  AAAABAA 
1 AAAAAAA  AAA  AAAI  1 1A1 
lllUUAAllA  1111111 


12221. 
12221.  126 
12321.  127 
12332.  128 
12332.  129 
AA  1 12321 .  L30 
A 1  1222 1 .  131 
A  1 122  IA.  132 
AAAAllllA.  133 
IA.  134 
IA.  135 


i  114111 

1a  1 1  IAA  /VAA1 
IA AA i  IA  AAA  Al 
IA  AlA  ABBBAA 1 
IA  AUAAB  UA  Al 
IA  Al  HAABJBa  Al 


Zk  kMMNNMMl  2555556531A134431AAL  IA  Al  12  2lfUAAAU  IA  A 1 122 1AAAA  Al 
7k  kZMN  NMM04544454321345431AA1  IA  AAAI  12  211UAA0BA11A  A12  211AA  Al 
4W  WGMNNMM J254  4432 l 246652 LAA1 1 IA  41111  12222 11 22 1 AbCCA il A  A12  21  L1AA1 
19«  WMMNNMMC444321BB1466521  1  1 1AAAAA122221  1  111  1  112:^1  ACOcAllA  AA12221  IA  Al 

14k  WYMMNMMl3533lCEEB2o6421  1AABBA233321  AAAAAA.Ul8iABcoAU  lAb/Vl  1 U  IA  Al 
ldk  WWHMNNMMC  5  64  1UGGO 1  5642  1  1  IAB  BA  244  3  1 ABBB  BBAA  (v.  2  LAB  A 122  1 A  AAA  l 
13k  kVWXMNNMMK2663CFGD15653221  IAB  BA2332ABCC13  BA.Ji 2 11112  211A11 
17k  W  WMMNNMM05751COB3675322211ABBA1221ABBBBB  BAA'l22ln,  21111111 
13XW  kZMMNMML2653AA15776433221ABBAlLUAAAAAABBAAi  1  1  12  22222221 

16W  WBMMM  ME453213677654433LAABAA1  lllllAAA  AL  111112  221111 

13YW  kkMMNMMLl  3322  46  7  764455421AAA1  1222JLA _ Al  1AAAA11Z22 111111 

16W  W VW2MNNMME 2 32346 7643456542 L 1111112  21A  AA  Al  11 1 1 AAAAA 1 11 1 U 11 1 1 1 AA 

12ZkkVWWMNNMMJ24434565322466542222222  21A  Aa  Al  ■  IAA  A 

15k  k  WMMNNMMA5544  543 1AA2577543332  21A  A 1 1 AA  m!  IA  ABA 

12Xk  W1MNNMMD4 543321  BOG A3676554332  22  21A  Al  11AA1  IA  A 
17W  WMMNMMK24321ABOEEC1577665433233221AA1  1  U  IA 

13k  WBMNNMMC32 ABCC tF FDA46. 7.76543333 32 1  IAA  1 1 Z  I'  ..  UJ  IA 

19W  WMMNMMG22ACDOEEEC  1478764322222 IiA  A122.1  lAAAll'HA 
15W  WWKMNMMI231 B00DDCA268875 311U1UAA  A12  21A  AmAA 
12XWWVW3MrjMMJ353ACCCBA13688631BB8Al  1AABA1 12  )21iA 
1  dkWVk  YMi'JMML4  7  52BBBAAA246652ACDCBAA  AAI  2 
1 5k  kWXMNNMM4863lAAABCCA2343ACCCBAAA  A12 


,  I  4k 


211AAAAA1AA 
2211111  11 A 

_2JLl ill  _  LA 


22221  IA 


FIGURE  44 


FILTERED  STRUCTURE  CONTOURS  ON  THE  BASE  OF  TH.E  FISH  SCALES 
13  x  13  SPATIAL  FILTER 
CONTOUR  INTERVAL  50  FEET 


W2MNNMM28  7521ABDFGFC13421AAAU1AAU2 
JZMNNMM067542180GI 1FA455422221  1A1  12 
HMN  NML366432ACFI I FA57865 3322 L  1111122222  21 

W0MNNMMC566432ADFFC268976433221  1AAAU  1  l  1  U222  1 
WMMNMMH4 7 76432 ABB  14798 76443 321  l AAAAAA a  1  1111 
WCMNM  M27 8 7 542 222468876543  3211  ABBBB.A  Al  111 
WZMNNMM189863222356  7765433  3221AH  „ .*  AIUmAAI 


11  1  11222L  -16..  .L36_ 

1222  3221 1  11 A .  137 

1223  3222221.  138 

12233322  21.  139 

12  222112  21.  140 

1  12111112  21.  141 

1161.  11AAA61221.  142 
IAA  Al 1 A A ABBA 1221 •  143 
IA  AA  AB  81221.  144 
IA  AB  BA  1 2 1 •  145 

11  IA  AB  BA1 12 1 .  146 

1221  IA  AAAABBBBA1221 .  147 
12  211A  ABBBBBAAA 12331.  148 
1 AAAAA 1  12  2 11  A AB  BAAAAA  12  342 .  149 
11111112  211AAB  BA  Al  1123443.  150 
1122  21 IAB  BBAAA1  1223454.  151 

122  211 AABBAAA l 1  12  23454.  152 

112221  IA  AA  Al  12  23444.  153 

111.  11 A  Al  122222343.  -154._ 

Al  11112333.  155 

AAAAAAAAAAA  AU1  L1A112343.  156 

AAA  A112211AABAA2343.  157 
AABBBA  A  1  122  1 1AB08A2454.  158 
ABB  BA  AU221ABCC8A2454.  159 
AB  BA  A 12  2 1  AABBA 12  343.  160 
AAAAAA  4b  BA  A  1 L2  2 1 1AAA 1 1233 3.  161 
A 11 11 1  IAA  ABBBA  Al  I22l  H1222332.  162 
Al  11A  AAA  Al  121 

Al  H  IA  AAI  1221 
A 11221 IA  All  12  21 

A  11 221  IA  Al _ 12—21 

A 1  1 2  211 A  Al  12  21 

A  1 1 2  2  1 1 A  411UI  12  21 

4112  2  11 A  AAAAA 1  12  221 
1 AAA  1  L221  1m  ABAA 11211 

HI  121  IA  AB  BAA  1  1 
1  IA  AAAAB  BAAl 


BA  AAA 


SYMBOLIC  CONTOURS 


NUMERIC  ARE  POSITIVE  CONTOURS 
ALPHABETIC  ARE  NEGATIVE  CONTOURS 


WMNNMMB898531 A  12456654 3223322 IAB 
WMMNMME79752ACBA24555332  22  21AB  i>A 
W1MNNMJ47642BCCA2455543221?  22 2 1 AB  bA 
W3MNNMM1 6542BCB1356654321  1233321ABbA  AA 
WMNNMME4432AA24  7  88  765  321  1  1  123331 AAm  All  A 
WMMNMM  J  2432  1248YXY97542  IAAI  2  34  32  1  A  A  m  1  1 
k JMNNMMB32  U26YWWX965431A  A133321  L  U  1 A 
W4MNNMMG22AA26XWWY8543321AA123  32V  IA 
WMMNM  MB1AB1  5ZWWZ633  3 32 1  1  1 2 3322 1, 1  H  IA 
k  kAMNM  MEABCB27ZZ74223443211222  222211 A 

k  WMMNMMJAACCAJ67532345543222122  2 l l A 

«  WGMNM  MBABCBA3443 3345544 332 1 H 2  _  21A _ 

W6MNNMMC 2 IBCCA2222 35  544321A11?  21IA  A n d b •  i A  1 12  211A 

- - A1^ 


Aim  u 

A  1222  IAA  1  1 

A12  2  1  AA  1  1 

A  122 1 IA  Al  121 
AllllA  Al  1 
AAAA  Al  11 
AA  Al  1  A  A 1 
AbdA  Al  IA 
ABBAA  1  IA 
AAAI  IA 
AA 1 11  IA 
i-U-2-2-i-i-A 


12343. 
112343. 
1  All  34_.3._ 
1  Al 1 1 AABAA 1  111  IA  A1233. 
1AAAA1 112221  IA  A1233. 
1111 122221 1 1 A  A233. 

12  2 1 1  AAA  A1233. 

122 1 ABCCBAAA  A1233. 


12  2332.  163 

12222333.  164 
1112343.  165 
134  3.  _L66 
111233.  167 
1AA1233.  168 
111333.  169 

170 

171 

172 

173 

174 

175 

176 

177 


1 lABOJudAl 1AA1233.  178 
1AABDE0CA22 1AA1233.  179 
1 LAABCDDCA2  331AAA232.  180 
A 1  1  AA  •.  ?CCc:l2V.  H  AnA233.  181 
AA  AAAA8BB12332AB8A233.  182 
Ai 11 IAAA12321A8B1233.  183 
1UH22  1A  AAI  3  3.  l.B± 


Al 


kMMNMMD33AC  C8AA1345  55543  1AA1F  2  1 1 A A Ab 
WMMNMMF  442  ACDUCCB  1  3  5  56665  PpAfl'V'l,2  2  1  1  l  Ad 
uwumuui.14  ,  i  a  c  c  HA  JUh  641ABA1  l  i 


BAA  12  2 1 1 A 
BAA  1122 11A 


Al 


Al 

A  AAA  1 


12221  L 1 1 AAA  113  3.  185 

12221  11112232.  186 

11221  12232.  187 

111  U  U _ 1222.  188 


OuCOUGOOOOOuUCCOOOOuuUOOOCOOCOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOaOOOOOOOOOOOOOOOOOOOOOOOOOOOOl  lUlUllllUimniULUlllllllliiiiiinii,,iii,,,, 


4  '♦5-53555555 


1 2  3456  7d901 23456  7by01234567890i23456  7B9012345o7890l23456  78901234567B90L2345678901234567890 1 234567890  12^67890123456  7890123456  78901234^6789012^^7890 

•AlAbCBA2343Z2illACFlKJIFUBAA8DEFFFF  EOCBCDEGHGFEEG  1 KMML  JHGH  JLL  JGEDCCCCBBjBCCDEFGHHGFC  13554  322  34566655  5|5  5555  55555  5  5666666789999d7  7766544333  34444455667771*007  a  irr  r  *  nn, 
.068  88A233  33321  1ABU t EUBA 1 22 1  ABBA  12 22 332 1BCB A 1 2  l ACFGHGECC E GHHGF EDCC BAA AABC0FGGGF6DB 135 S3 1  AA 1 2 3455444  <^4445  554  3344444456777765554432  11 12233 334455sIIl777 

1  I  x  7  4  4  1  ,  I  I  I  A  1  I  I  J  7  1  A  A  1  x  -X  H  3  H  X  1  A  A  1  ,  1  L.  ,  r  n  .  i  i  ..iyl.  c  urwirvr  „  .  .  ,  »  ,  . . . ^  r  - . - .  -  jt  i  i  JOOO  I  I  (63ACDC.  00? 


002 

003 


^008841223343  532111  1141112  2  *AA  1234 3  333  2  1AA  1244 42  1BCC B1 1 1 BDt  FtOOOCBAl  2  2  1ABDEE E0C89A24553  1  BCBA1  222  332  2  2  2  3 34  5442  1  1  1 1  1 1 1 1 2 3455443222 1AAB6AA  1 122333334444555^  180DC I 


46652  112333222  2 lA.b.AJ  3443ZLIAA_ A1234321AA12331  b 


.UbrUbAAAA123554^11233322221AdbA12321AbCbbAA12221AAA134431oCCB0aCCCbA13  332  1  1  1 22  2  1  A  1  356  64 1  CDDDC  B8  A I  2  l  1  A  A1233  3  L  ACCCb  6 AA  1 2 3 3221 1 AABBC  CdBAAU2  ?l??^l  «,,urnrH 
.btFutbb8AAl2343^  11222dlllllAebAll21AU3UCbAl  1 1 ABbbA24 542 ACC  A 1 1 A AB BB A l 23  3433332  1 9B A  16 764 1 CODCC 9 A 1 1 2 1  1  AA 1 1 22 l ABC  CBBAA 1233221 1 AAb  8CCBBAA1 12  211123  3?lIwfnrH  !!! 

.  oIDlUCBoAm A  12221  1222211A«1  1  AA  A  A 1 1  Ac  t  Ebb  1  1  AbbCC  o  A3  5  53  ACOb  1 2  22  l  A  A  AA  1  2  234  5  5532  ACCC  1 46  764 1  bCC  B8  A  1  2  22  1, 1 A  A1UABC  CUBA  A  1 22  322 1 AABB  bCCCBAAl  12  211A123  3?lAfnnfH 
. w6tF  ECbbAl 11  1  11  1^332 14bbA122 l A bA 1 22 ACDCA 1 1ABCC  C614552CFEC 24 4322111  1  2345 542B0E DB 2 566 53 1 8BBB 1 2 33 32 l  LA  AAABbC  CBbA A  12 3221 Abb  bBBBAA 1  122  1 IAA  1233? 1  ARC f ff R  nnl 
.W4bbF0BAl22221  123  32 1 BbC A23 32 A BA2442 bC.  b 1 2 1 BUDDC BA2 564AF HOC  24 54 332 22 1 1 233432BEGFC 1 466542 l AQ BA24 54 32 1  LA  AbbbbCBBA 12332 lABbCb  BA  A1  1  L  U  A  12322 1  ABC  CR  00b 

_._«<LCkkUDA2  3.33  22.1  i  2_>_  3  2  A  LlX  A  2  W  A  hA  3J&8416A2ZAC  U  t_UC_AJ.3_6.o_  3_C  H  J  H  U  2  4_5_4<lUZZ2  2  -2_2j2J._btC._tE  A  4.6  7  54ZZLMC  A2  S&sloILl  14 AMflfl£MlZ2  3  3  2ABCC  C  b  BA  A  1  1 A  Ail»,n«,ur  r  □  * 

.»bfchFbbA«ij3  32lll23JlACUCA2432bbA2553lA122ACE0CBA246520IMDl45543  32  2 1 AuCE F GFC26 77 5 3 1 1 ABCOB 2565 3 1  fl2 1 A  AlllABCbA123  32 ABCCCB  BA  AAAI  11 

.3LFbtCLol22J2 lAAl222lACbCA2331ABA1332AA122AC0UBA12454lEl J10145543  322 ACDEF FF EC A46 7642 l 1 ACDEC 1 4542 l  . 

.L»FFCCbCObAl22  1A  A  l  22  1  Abbb  A2  22  l  A  B  AA  l  l  A  A  1  2  IbC  Do  A  1  2  3443A  EH  IbO  1  3  5  543  332  1  CEGHGbDB  1  35665  3  2  l  1  AC  E  FC  l  343  2  li 

•  ccCtAbCoCoAl  1  1AAA1 1  1  lArtAAlll  1  A A  A A AA 1 22 ItiOOC A23 3442 AUbbFC 1 345 544432 ADG 1 1 F C A23 45 5 532 1  1 1  AC EE C A333 1  V 

•  L.UA  AbC  L  BA  1  1  1 1 A  1  1 1  1AAAA  1  11AAA112  2  AC  DC  b  1 344  432  AC  E  EOB  A  2  45  5  5  5  54  2  A  EH  1  HE  A  344444  3  2  1  A  A  AbCODC  A  2  2  2 1 

.  A ABcAAbl  18122211 


OJLQL 


...  -  l  AAA  L  2  2  11 LAA&BCCh .  Oil 

11A  AL21ABbbA233  321bbbbbb  tiA  A 1 1 1 122  1 AABA 1 22 1 AA A 1 1 ABCC B .  012 
1  AAAA12<^  1  AbA  13343321  AABBAABbA  Al  1 12322  ABBB  A  1 1 A  BA  A 1  2  1  BCC  B  .  013 
lAbbA-1221  1A123  332  2  1  AAA  ABbAAl  12  23432  ACC  BB  AABBA  1  33  1 8CUC  .  014 
11AABA12  21123432212211A  Ab  BA  1 12234431 bCDCBBB  B13442ACDC.  015 


134  45.  _  5JAeiiii^c.i3A12A12ABCCB(X0££_AAlAAll.<!-L-^AMAA2  223AAA21.1.LL_lAAjBti]i_  JlA12234543lBDDCCCBBA24663ACnr  .  nw, 

•  AriCcbUbbCcbl2J32  1  122221ABBAA1  1222  22 1  ABBB  A24  55  A  3 1 AB86BBB  A  1 22  345  553  AQGGE  B22  2 1  1 1 1 ACDEDDCCCC  BBR  BB  A  1 2  2  2 1 1 A  A1122J444321AAlllA8CCCBBAl23455431uCcVcBBA24o7741CDC017 

.bbtbCBAttbbMl J44321  1 2  3322 AABBA*  12332  2  1  l  AAbbA245 653 1 bCBAAAA AAAI  122 344  3 lCfcECAl 1 ABC0BCOE F EOC BBBBBBBBA? 3 3-^  L A  A  1 123345442 1 A  AAABCCDCbA 12 3344432ABCCBBBA236  7874 1BCC*  018 
.  BUCOCAAAb  B  13943.:  1122b  32  2  A  A  BA  1 2  34  32  1  Bbbbb  A  1  34  542  AC  DC  b  1 1  L 1  1 1  1  1 A  A  A 1 3442  ACC  b  A 1  ACDDDCODE  DCBB  AA  A  A  AA  A  A234  ^  32 1  AA  A  1 1 234  A  432  l  A  A  AbCODC  BA  12  344432  1ABB8BBA13  56  77  53ACCB*  019 

•  UCCCAll  lAuliAt  J  jitl  12233  3  3  1 A  A  A  l  344  3 1  BCCLB  A 1  2  3  3  3  1 BUE  DC  A22  22222  1  ABB  A2444  2  l  A  l  1 A6DEE  DCC80  A  1 1  l  A  AA  A  1 12445  42  L  AABA  123  34444  33  2  1 1 ABCOOUC  A 1  2333  3  32  l  A  AB  AAA  A  Al  3  56653  ACDC  B*  020 

•AAAA1222AB  oAlZcl  11223  32 1 A A2J44 2 bDDD bA 1 1 2 2 l ACF bFDA2 34 33 3 32 1600B246532 1 22 1 8DE EOC A  1 3 4432 ABB A A 1 2 3 55 5 32 AbbBA 1 23  33 3334332 1ABCCCC B 1 2 33432 1 1 A ABA  Al 34553 1CDEUB !  021 

— »  11112ZJ22AQ  DA11 - 1X411284.321 12332  AD2tLAX221  IB  DFHHXB  243.4  43_Z2A(^A3.5A532122iaCJ3nDai46:Z64_LB.C£BAl  23444  ZLAlL.BA123322l2233321AAbCCBA23.A4431AAB-B-A.  _  A  AA234 J2BDJLEDB 1  0?? 

•  2^2333  32  io  b  A  1 1  1  1 A  A  AB  A  1 344  332222  AC  E  E  CA2  32  2  1  bC  E  HHGC  14  554  3  3  32  1 BOUC  1 4664  l  AA2  22  ABO  DB146653ABC  C  BB  A 1 22  2  ^  1  AABB  A  1  3,*32  1 A'A^  2  22  1  1  AB  BBA  l  345542  1  ABB  A  AB  bA  1 2  32  1 BOE  EDB  .  023 

.22343  321b  bA  12  2  1 1  ABB  b  1 345  5  4332  Ac  EF  UB3443  l  A  BDF  GGD  A3  5  543  22  2 1 BCOC  A3564  1BCB 1 332AC  ODC  A244  2 1  8CCCCCBB  A 1 1  1  1  L^AA2ii  32A8B&AAAABB  BAAA 1 355542  AABA  ABBAA1232  L  BCDCB*  024 

.2J4  5  4332  2AboA233J2lAbCCA24666  531ButtC14  542ABC0EEDA344  3221lABCDDB146  52B0EC  14442ACDDCA IABCC BBBBCCBBA 1  1  1  2  34  32ABCCCCBCCCBBAAA1  356542  A  A  A  A  A  AAA  AAA  123343  l  ABCb!  025 

.2 35  543c  11  Add  1355 4  2  IBCcCol 3  560  53  lbUtDA35 5h  1BC  CL b  1 34 32  1 1 1  1 ABCO EC  A3564 1 C EDB24553 1 BOOCC CDDDC  A 1 1  ABBBA  1  1  U  2 344 3 1  BC OCDCODCtBBB A 1  358532  A  ABBBBBBAAAl  L2345431  ABB.  026 

.  1344  3c«ABi:6m246o53 1 BQDDC A24 554 3 l BCLB 1 455 3 ABCCb A  134  32AAA1  1  ABC DUB  1 455 3AC0C A34554 2 ACCC CCDEDB232 1 BBB A  1 2  *  Lc 34  42 1 BC CUC00CC86  b  1  35  543 1 AA&B8B  BAA  1 12233454 32 ABB.  02  7 

.  1  l  1  lACooCUbc  i*«oo42bC0UCbAl  1 1 1  AB  BAA  1 1 2  3  32 1  BCCb  1 4  564ACC  A244  32  1 A  A 1 1 2  2  1 A  B  A 12  2  222  22 1  ABB  A  1  1 1 1 2  35542  ACC8 1 2  2  ^2  1A  BA  1 2  3344432  AUBBBBBBBBb A  1 3332 1 1 ABBC  C  BA  12333222  33  321  ABB.  029~ 
.1  lAbCbCUFF(.U2443iooCCbAlll«bc0LAl22  22 1 ABCC A 25o52CDC A35 54432  l  1 AABC B 1 333  l AA A  1 ABBB A  1 3444 5  53 1 BBAA l A ABCCBA23  3 33432 1 A A A A AABBB A  12 322 1  1 AABC  CBA123  322112211AB  B.  030 

.  A l lAbCDCtFMccb 1.3. 1AAA12332ACDDCB12  2 1 A88Cl> 1 3 5 5 36 EFD A345 5 5 542  l  BBCDCB 1 332 AB BBA ABCCB 1 3 565 555 543 1 1 AAA BGDJJi*.  13 4 32 122 22 l A  A  1 1 AA 1 1232 1 A AA  ABC  CB123  3  21  A AAA A A  BBB  B.  031 

•  Ml  AbCcutcl  1H  to  134  44  3344  542  ACUt  06  L2  2  1  ABBC&A  1 14  3 1 DGHF  B24556642ABC0  D8 13  31  BCC  A  1 1  ABCC  A24  543  334543  2 1 1  AB^Oo  U>542  AA  Al  1 AAAA  1  1  12232  1 ACCBAA8CCBA  12  332  1  ABBBBBBCCCbA .  0  32 

•  CAIaoCCCUF  lJlGDist>7  7655o653lBUDDUAU21ABCCBl2331bFHHFC13456653ABCD0CBl32lBCBl23lBCDHl332lU3443221AB^Ltft466b42ABBBBbBBAAl  122332AC0C8AABBBB  12  22  1  AoBCCCCC  CBA.  033 

.  a  iit>  B  BCBBCt  h  LI  GC?  'jb9  8  7b56  7  642  BCCLbA  13  32  ABC  BA  2  32  2ACEGGFCA24  5  6653  ABB  BBbA  12?  1  BB  A244  3AC  DDB121ApA?3  3?1  1  IAaA  1  A^V764b  ACCCC  CJUiBaJ  1.2^2  lbi)^  D  BAABBB.A  1222  1 1  ABC  CCC  CCb  A  .  g  34 
.  .Hot  obB7c5  5o7to42AbbbbA2  33  2  lbbA  133  2  lAbCDt  DC  A2  4b7o5  2  AbbAAA  l  122  ?  H8A3553  1C00CA1  IA8A  122  l  ABBAA  L24^6654  1  DoUUUCCCbAA  111  1  1  1  AbDOCBA  AAA  13  3321  AbC  CBBBBB  B.  035 
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FIGURE  48 

APOSTREPTIC  SUB-CRETACEOUS  UNCONFORMITY  TO  THE  EASE  FISH  SCALES 
13  X  13  SPATIAL  FILTER 
CONTOUR  INTERVAL  50  FEET 

SYMBOLIC  CONTOURS 
NUMERIC  ARE  POSITIVE  CONTOURS 
ALPHABETIC  ARE  NEGATIVE  CONTOURS 
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APOSTREPTIC  DEVONIAN  TOP  TO  THE  SUB-CRETACEOUS  UNCONFORMITY 
13  x  13  SPATIAL  FILTER 
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